home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / auctex / latex.el.z / latex.el
Encoding:
Text File  |  1998-05-21  |  105.0 KB  |  3,212 lines
  1. ;;; latex.el --- Support for LaTeX documents.
  2. ;; 
  3. ;; Maintainer: Per Abrahamsen <auc-tex@sunsite.auc.dk>
  4. ;; Version: 9.7p
  5. ;; Keywords: wp
  6. ;; X-URL: http://sunsite.auc.dk/auctex
  7.  
  8. ;; Copyright 1991 Kresten Krab Thorup
  9. ;; Copyright 1993, 1994, 1995, 1996, 1997 Per Abrahamsen
  10. ;; 
  11. ;; This program is free software; you can redistribute it and/or modify
  12. ;; it under the terms of the GNU General Public License as published by
  13. ;; the Free Software Foundation; either version 1, or (at your option)
  14. ;; any later version.
  15. ;; 
  16. ;; This program is distributed in the hope that it will be useful,
  17. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ;; GNU General Public License for more details.
  20. ;; 
  21. ;; You should have received a copy of the GNU General Public License
  22. ;; along with this program; if not, write to the Free Software
  23. ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ;;; Code:
  26.  
  27. (require 'tex)
  28.  
  29. ;;; Syntax
  30.  
  31. (defvar LaTeX-optop "["
  32.   "The LaTeX optional argument opening character.")
  33. (make-variable-buffer-local 'LaTeX-optop)
  34.  
  35. (defvar LaTeX-optcl "]"
  36.   "The LaTeX optional argument closeing character.")
  37. (make-variable-buffer-local 'LaTeX-optcl)
  38.  
  39. ;;; Style
  40.  
  41. (defcustom LaTeX-default-style "article"
  42.   "*Default when creating new documents."
  43.   :group 'LaTeX-environment
  44.   :type 'string)
  45.  
  46.   (make-variable-buffer-local 'LaTeX-default-style)
  47.  
  48. (defcustom LaTeX-default-options nil
  49.   "Default options to documentstyle.
  50. A list of strings."
  51.   :group 'LaTeX-environment
  52.   :type '(repeat (string :format "%v")))
  53.  
  54.  (make-variable-buffer-local 'LaTeX-default-options)
  55.  
  56. ;;; Syntax Table
  57.  
  58. (defvar LaTeX-mode-syntax-table (copy-syntax-table TeX-mode-syntax-table)
  59.   "Syntax table used in LaTeX mode.")
  60.  
  61. (progn ; set [] to match for LaTeX.
  62.   (modify-syntax-entry (string-to-char LaTeX-optop)
  63.                (concat "(" LaTeX-optcl) 
  64.                LaTeX-mode-syntax-table)  
  65.   (modify-syntax-entry (string-to-char LaTeX-optcl)
  66.                (concat ")" LaTeX-optop)
  67.                LaTeX-mode-syntax-table))
  68.  
  69. ;;; Sections
  70.  
  71. (defun LaTeX-section (arg)
  72.   "Insert a template for a LaTeX section.
  73. Determinate the type of section to be inserted, by the argument ARG.
  74.  
  75. If ARG is nil or missing, use the current level.
  76. If ARG is a list (selected by C-u), go downward one level.
  77. If ARG is negative, go up that many levels.
  78. If ARG is positive or zero, use absolute level:
  79.  
  80.   0 : part
  81.   1 : chapter
  82.   2 : section
  83.   3 : subsection
  84.   4 : subsubsection
  85.   5 : paragraph
  86.   6 : subparagraph
  87.  
  88. The following variables can be set to customize:
  89.  
  90. LaTeX-section-hook    Hooks to run when inserting a section.
  91. LaTeX-section-label    Prefix to all section labels."
  92.   
  93.   (interactive "*P")
  94.   (let* ((val (prefix-numeric-value arg))
  95.      (level (cond ((null arg)
  96.                (LaTeX-current-section))
  97.               ((listp arg)
  98.                (LaTeX-down-section))
  99.               ((< val 0)
  100.                (LaTeX-up-section (- val)))
  101.               (t val)))
  102.      (name (LaTeX-section-name level))
  103.      (toc nil)
  104.      (title "")
  105.      (done-mark (make-marker)))
  106.     (newline)
  107.     (run-hooks 'LaTeX-section-hook)
  108.     (newline)
  109.     (if (marker-position done-mark)
  110.     (goto-char (marker-position done-mark)))
  111.     (set-marker done-mark nil)))
  112.  
  113. (defun LaTeX-current-section ()
  114.   "Return the level of the section that contain point.
  115. See also LaTeX-section for description of levels."
  116.   (save-excursion
  117.     (max (LaTeX-largest-level)
  118.      (if (re-search-backward (LaTeX-outline-regexp) nil t)
  119.          (- (LaTeX-outline-level) (LaTeX-outline-offset))
  120.        (LaTeX-largest-level)))))
  121.  
  122. (defun LaTeX-down-section ()
  123.   "Return the value of a section one level under the current. 
  124. Tries to find what kind of section that have been used earlier in the
  125. text, if this fail, it will just return one less than the current
  126. section." 
  127.   (save-excursion 
  128.     (let ((current (LaTeX-current-section))
  129.       (next nil)
  130.       (regexp (LaTeX-outline-regexp)))
  131.       (if (not (re-search-backward regexp nil t))
  132.       (1+ current)
  133.     (while (not next)
  134.       (cond
  135.        ((eq (LaTeX-current-section) current)
  136.         (if (re-search-forward regexp nil t)
  137.         (if (<= (setq next (LaTeX-current-section)) current) ;Wow!
  138.             (setq next (1+ current)))
  139.           (setq next (1+ current))))
  140.        ((not (re-search-backward regexp nil t))
  141.         (setq next (1+ current)))))
  142.     next))))
  143.  
  144. (defun LaTeX-up-section (arg)
  145.   "Return the value of the section ARG levels above this one."
  146.   (save-excursion
  147.     (if (zerop arg)
  148.     (LaTeX-current-section)
  149.       (let ((current (LaTeX-current-section)))
  150.     (while (and (>= (LaTeX-current-section) current)
  151.             (re-search-backward (LaTeX-outline-regexp)
  152.                     nil t)))
  153.     (LaTeX-up-section (1- arg))))))
  154.  
  155. (defvar LaTeX-section-list '(("part" 0)
  156.                  ("chapter" 1)
  157.                  ("section" 2)
  158.                  ("subsection" 3)
  159.                  ("subsubsection" 4)
  160.                  ("paragraph" 5)
  161.                  ("subparagraph" 6))
  162.   "List which elements is the names of the sections used by LaTeX.")
  163.  
  164. (defun LaTeX-section-name (level)
  165.   "Return the name of the section corresponding to LEVEL."
  166.   (let ((entry (TeX-member level LaTeX-section-list
  167.                (function (lambda (a b) (equal a (nth 1 b)))))))
  168.     (if entry
  169.     (nth 0 entry)
  170.       nil)))
  171.  
  172. (defun LaTeX-section-level (name)
  173.   "Return the level of the section NAME."
  174.   (let ((entry (TeX-member name LaTeX-section-list
  175.                (function (lambda (a b) (equal a (nth 0 b)))))))
  176.  
  177.     (if entry
  178.     (nth 1 entry)
  179.       nil)))
  180.  
  181. (defcustom TeX-outline-extra nil
  182.   "List of extra TeX outline levels.
  183.  
  184. Each element is a list with two entries.  The first entry is the
  185. regular expression matching a header, and the second is the level of
  186. the header.  See LaTeX-section-list for existing header levels."
  187.   :group 'LaTeX
  188.   :type '(repeat (group (regexp :tag "Match")
  189.             (integer :tag "Level"))))
  190.  
  191. (defun LaTeX-outline-regexp (&optional anywhere)
  192.   "Return regexp for LaTeX sections.  
  193.  
  194. If optional argument ANYWHERE is not nil, do not require that the
  195. header is at the start of a line."
  196.   (concat (if anywhere "" "^")
  197.       "[ \t]*"
  198.       (regexp-quote TeX-esc)
  199.       "\\(appendix\\|documentstyle\\|documentclass\\|"
  200.       (mapconcat 'car LaTeX-section-list "\\|")
  201.       "\\)\\b"
  202.       (if TeX-outline-extra
  203.           "\\|"
  204.         "")
  205.       (mapconcat 'car TeX-outline-extra "\\|")
  206.       "\\|" TeX-header-end
  207.       "\\|" TeX-trailer-start))
  208.  
  209. (defvar LaTeX-largest-level nil
  210.   "Largest sectioning level with current document style")
  211.  
  212. (make-variable-buffer-local 'LaTeX-largest-level)
  213.  
  214. (defun LaTeX-largest-level ()
  215.   (TeX-update-style)
  216.   LaTeX-largest-level)
  217.  
  218. (defun LaTeX-outline-offset ()
  219.   "Offset to add to LaTeX-section-list levels to get outline level."
  220.   (- 2 (LaTeX-largest-level)))
  221.  
  222. (defun TeX-look-at (list)
  223.   "Check if we are looking at the first element of a member of LIST.
  224. If so, return the second element, otherwise return nil."
  225.   (while (and list
  226.           (not (looking-at (nth 0 (car list)))))
  227.     (setq list (cdr list)))
  228.   (if list
  229.       (nth 1 (car list))
  230.     nil))
  231.  
  232. (defun LaTeX-outline-level ()
  233.   "Find the level of current outline heading in an LaTeX document."
  234.   (cond ((looking-at LaTeX-header-end) 1)
  235.     ((looking-at LaTeX-trailer-start) 1)
  236.     ((TeX-look-at TeX-outline-extra)
  237.      (max 1 (+ (TeX-look-at TeX-outline-extra)
  238.            (LaTeX-outline-offset))))
  239.     (t
  240.      (save-excursion
  241.       (skip-chars-forward " \t")
  242.       (forward-char 1)
  243.       (cond ((looking-at "appendix") 1)
  244.         ((looking-at "documentstyle") 1)
  245.         ((looking-at "documentclass") 1)
  246.         ((TeX-look-at LaTeX-section-list)
  247.          (max 1 (+ (TeX-look-at LaTeX-section-list)
  248.                (LaTeX-outline-offset))))
  249.         (t
  250.          (error "Unrecognized header")))))))
  251.  
  252. (add-hook 'TeX-remove-style-hook
  253.       (function (lambda () (setq LaTeX-largest-level nil))))
  254.  
  255. (defcustom LaTeX-section-hook
  256.   '(LaTeX-section-heading
  257.     LaTeX-section-title
  258. ;; LaTeX-section-toc        ; Most people won't want this
  259.     LaTeX-section-section
  260.     LaTeX-section-label)
  261.   "List of hooks to run when a new section is inserted.
  262.  
  263. The following variables are set before the hooks are run
  264.  
  265. level - numeric section level, see the documentation of `LaTeX-section'.
  266. name - name of the sectioning command, derived from `level'.
  267. title - The title of the section, default to an empty string.
  268. toc - Entry for the table of contents list, default nil.
  269. done-mark - Position of point afterwards, default nil (meaning end).
  270.  
  271. The following standard hook exist -
  272.  
  273. LaTeX-section-heading: Query the user about the name of the
  274. sectioning command.  Modifies `level' and `name'.
  275.  
  276. LaTeX-section-title: Query the user about the title of the
  277. section. Modifies `title'.
  278.  
  279. LaTeX-section-toc: Query the user for the toc entry.  Modifies
  280. `toc'. 
  281.  
  282. LaTeX-section-section: Insert LaTeX section command according to
  283. `name', `title', and `toc'.  If `toc' is nil, no toc entry is
  284. enserted.  If `toc' or `title' are empty strings, `done-mark' will be
  285. placed at the point they should be inserted.
  286.  
  287. LaTeX-section-label: Insert a label after the section command.
  288. Controled by the variable `LaTeX-section-label'.
  289.  
  290. To get a full featured LaTeX-section command, insert 
  291.  
  292.  (setq LaTeX-section-hook
  293.        '(LaTeX-section-heading
  294.      LaTeX-section-title
  295.      LaTeX-section-toc
  296.      LaTeX-section-section
  297.      LaTeX-section-label))
  298.  
  299. in your .emacs file."
  300.   :type 'hook
  301.   :options '(LaTeX-section-heading
  302.          LaTeX-section-title
  303.          LaTeX-section-toc
  304.          LaTeX-section-section
  305.          LaTeX-section-label))
  306.  
  307.  
  308. (defcustom LaTeX-section-label
  309.   '(("chapter" . "cha:")
  310.     ("section" . "sec:")
  311.     ("subsection" . "sec:"))
  312.   "Default prefix when asking for a label.
  313.  
  314. If it is a string, it it used unchanged for all kinds of sections. 
  315. If it is nil, no label is inserted.
  316. If it is a list, the list is searched for a member whose car is equal
  317. to the name of the sectioning command being inserted.  The cdr is then
  318. used as the prefix.  If the name is not found, or if the cdr is nil,
  319. no label is inserted."
  320.   :group 'LaTeX-label
  321.   :type '(choice (const :tag "none" nil)
  322.          (string :format "%v" :tag "Common")
  323.          (repeat :menu-tag "Level specific"
  324.              :format "\n%v%i"
  325.              (cons :format "%v"
  326.                    (string :tag "Type")
  327.                    (choice :tag "Prefix"
  328.                        (const :tag "none" nil)
  329.                        (string  :format "%v"))))))
  330.  
  331. ;;; Section Hooks.
  332.  
  333. (defun LaTeX-section-heading ()
  334.   "Hook to prompt for LaTeX section name.
  335. Insert this hook into LaTeX-section-hook to allow the user to change
  336. the name of the sectioning command inserted with `\\[LaTeX-section]'."
  337.   (let ((string (completing-read
  338.          (concat "Select level: (default " name ") ")
  339.          LaTeX-section-list
  340.          nil nil nil)))
  341.     ; Update name
  342.     (if (not (zerop (length string)))
  343.     (setq name string))
  344.     ; Update level
  345.     (setq level (LaTeX-section-level name))))
  346.  
  347. (defun LaTeX-section-title ()
  348.   "Hook to prompt for LaTeX section title.
  349. Insert this hook into LaTeX-section-hook to allow the user to change
  350. the title of the section inserted with `\\[LaTeX-section]."
  351.   (setq title (read-string "What title: ")))
  352.  
  353. (defun LaTeX-section-toc ()
  354.   "Hook to prompt for the LaTeX section entry in the table of content .
  355. Insert this hook into LaTeX-section-hook to allow the user to insert
  356. a different entry for the section in the table of content."
  357.   (setq toc (read-string "Toc Entry: "))
  358.   (if (zerop (length toc))
  359.       (setq toc nil)))
  360.  
  361. (defun LaTeX-section-section ()
  362.   "Hook to insert LaTeX section command into the file.
  363. Insert this hook into LaTeX-section-hook after those hooks which sets
  364. the `name', `title', and `toc' variables, but before those hooks which
  365. assumes the section already is inserted."
  366.     (insert TeX-esc name)
  367.     (cond ((null toc))
  368.       ((zerop (length toc))
  369.        (insert LaTeX-optop)
  370.        (set-marker done-mark (point))
  371.        (insert LaTeX-optcl))
  372.       (t
  373.        (insert LaTeX-optop toc LaTeX-optcl)))
  374.     (insert TeX-grop)
  375.     (if (zerop (length title))
  376.     (set-marker done-mark (point)))
  377.     (insert title TeX-grcl)
  378.     (newline))
  379.  
  380. (defun LaTeX-section-label ()
  381.   "Hook to insert a label after the sectioning command.
  382. Insert this hook into LaTeX-section-hook to prompt for a label to be
  383. inserted after the sectioning command.
  384.  
  385. The beaviour of this hook is controled by LaTeX-section-label."
  386.   (and (LaTeX-label name)
  387.        (newline)))
  388.  
  389. ;;; Environments
  390.  
  391. (defgroup LaTeX-environment nil
  392.   "Environments in AUC TeX."
  393.   :group 'LaTeX-macro)
  394.  
  395. (defcustom LaTeX-default-environment "itemize"
  396.   "*The default environment when creating new ones with LaTeX-environment."
  397.   :group 'LaTeX-environment
  398.   :type 'string)
  399.  (make-variable-buffer-local 'LaTeX-default-environment)
  400.  
  401. (defun LaTeX-environment (arg)
  402.   "Make LaTeX environment (\\begin{...}-\\end{...} pair).
  403. With optional ARG, modify current environment.
  404.  
  405. It may be customized with the following variables:
  406.  
  407. LaTeX-default-environment       Your favorite environment.
  408. LaTeX-default-style             Your favorite document style.
  409. LaTeX-default-options           Your favorite document style options.
  410. LaTeX-float                     Where you want figures and tables to float.
  411. LaTeX-table-label               Your prefix to labels in tables.
  412. LaTeX-figure-label              Your prefix to labels in figures.
  413. LaTeX-default-format            Format for array and tabular.
  414. LaTeX-default-position          Position for array and tabular."
  415.  
  416.   (interactive "*P")
  417.   (let ((environment (completing-read (concat "Environment type: (default "
  418.                                                (if (TeX-near-bobp)
  419.                                                    "document"
  420.                                                  LaTeX-default-environment)
  421.                                                ") ")
  422.                                        (LaTeX-environment-list))))
  423.     ;; Get default
  424.     (cond ((and (zerop (length environment))
  425.                 (TeX-near-bobp))
  426.            (setq environment "document"))
  427.           ((zerop (length environment))
  428.            (setq environment LaTeX-default-environment))
  429.           (t
  430.            (setq LaTeX-default-environment environment)))
  431.  
  432.     (let ((entry (assoc environment (LaTeX-environment-list))))
  433.       (if (null entry)
  434.           (LaTeX-add-environments (list environment)))
  435.  
  436.       (if arg
  437.       (LaTeX-modify-environment environment)
  438.     (LaTeX-environment-menu environment)))))
  439.  
  440. (defun LaTeX-environment-menu (environment)
  441.   ;; Insert ENVIRONMENT around point or region. 
  442.   (let ((entry (assoc environment (LaTeX-environment-list))))
  443.     (cond ((not (and entry (nth 1 entry)))
  444.        (LaTeX-insert-environment environment))
  445.       ((numberp (nth 1 entry))
  446.        (let ((count (nth 1 entry))
  447.          (args ""))
  448.          (while (> count 0)
  449.            (setq args (concat args TeX-grop TeX-grcl))
  450.            (setq count (- count 1)))
  451.          (LaTeX-insert-environment environment args)))
  452.       ((stringp (nth 1 entry))
  453.        (let ((prompts (cdr entry))
  454.          (args ""))
  455.          (while prompts
  456.            (setq args (concat args
  457.                   TeX-grop
  458.                   (read-from-minibuffer (concat (car prompts)
  459.                                 ": "))
  460.                   TeX-grcl))
  461.            (setq prompts (cdr prompts)))
  462.          (LaTeX-insert-environment environment args)))
  463.       (t
  464.        (apply (nth 1 entry) environment (nthcdr 2 entry))))))
  465.  
  466. (defun LaTeX-close-environment ()
  467.   "Creates an \\end{...} to match the current environment."
  468.   (interactive "*")
  469.   (if (> (point)
  470.      (save-excursion
  471.        (beginning-of-line)
  472.        (skip-chars-forward " \t")
  473.        (point)))
  474.       (insert "\n"))
  475.   (insert "\\end{" (LaTeX-current-environment 1) "}")
  476.   (LaTeX-indent-line)
  477.   (if (not (looking-at "[ \t]*$"))
  478.       (insert "\n")
  479.     (let ((next-line-add-newlines t))
  480.       (next-line 1)
  481.       (beginning-of-line)))
  482.   (LaTeX-indent-line))
  483.  
  484. (autoload 'outline-flag-region "outline")
  485.  
  486. (defun LaTeX-hide-environment ()
  487.   "Hide current LaTeX environment using selective display."
  488.   (interactive)
  489.   (outline-flag-region (save-excursion (LaTeX-find-matching-begin) (point))
  490.                (save-excursion (LaTeX-find-matching-end) (point))
  491.                ?\r))
  492.  
  493. (defun LaTeX-show-environment ()
  494.   "Show current LaTeX environment."
  495.   (interactive)
  496.   (outline-flag-region (save-excursion (LaTeX-find-matching-begin) (point))
  497.                (save-excursion (LaTeX-find-matching-end) (point))
  498.                ?\n))
  499.  
  500. (defun LaTeX-insert-environment (environment &optional extra)
  501.   "Insert environment of type ENV, with optional argument EXTRA."
  502.   (if (and (TeX-active-mark)
  503.        (not (eq (mark) (point))))
  504.       (progn 
  505.     (if (< (mark) (point))
  506.         (exchange-point-and-mark))
  507.     (or (TeX-looking-at-backward "^[ \t]*")
  508.         (newline))
  509.     (insert TeX-esc "begin" TeX-grop environment TeX-grcl)
  510.     (LaTeX-indent-line)
  511.     (if extra (insert extra))
  512.     (newline)
  513.     (goto-char (mark))
  514.     (or (TeX-looking-at-backward "^[ \t]*")
  515.         (newline))
  516.     (insert TeX-esc "end" TeX-grop environment TeX-grcl)
  517.     (or (looking-at "[ \t]*$")
  518.         (save-excursion (newline-and-indent)))
  519.     (LaTeX-indent-line)
  520.     (end-of-line 0)
  521.     (or (assoc environment LaTeX-indent-environment-list)
  522.         (LaTeX-fill-environment nil)))
  523.     (or (TeX-looking-at-backward "^[ \t]*")
  524.     (newline))
  525.     (insert TeX-esc "begin" TeX-grop environment TeX-grcl)
  526.     (LaTeX-indent-line)
  527.     (if extra (insert extra))
  528.     (newline-and-indent)
  529.     (newline)
  530.     (insert TeX-esc "end" TeX-grop environment TeX-grcl)
  531.     (or (looking-at "[ \t]*$")
  532.     (save-excursion (newline-and-indent)))
  533.     (LaTeX-indent-line)
  534.     (end-of-line 0)))
  535.  
  536. (defun LaTeX-modify-environment (environment)
  537.   ;; Modify current environment.
  538.   (save-excursion
  539.     (LaTeX-find-matching-end)
  540.     (re-search-backward (concat (regexp-quote TeX-esc)
  541.                 "end"
  542.                 (regexp-quote TeX-grop)
  543.                 " *\\([a-zA-Z*]*\\)"
  544.                 (regexp-quote TeX-grcl))
  545.             (save-excursion (beginning-of-line 1) (point)))
  546.     (replace-match (concat TeX-esc "end" TeX-grop environment TeX-grcl) t t)
  547.     (beginning-of-line 1)
  548.     (LaTeX-find-matching-begin)
  549.     (re-search-forward (concat (regexp-quote TeX-esc)
  550.                    "begin"
  551.                    (regexp-quote TeX-grop)
  552.                    " *\\([a-zA-Z*]*\\)"
  553.                    (regexp-quote TeX-grcl))
  554.                (save-excursion (end-of-line 1) (point)))
  555.     (replace-match (concat TeX-esc "begin" TeX-grop environment TeX-grcl) t t)))
  556.  
  557. (defun LaTeX-current-environment (&optional arg)
  558.   "Return the name (a string) of the enclosing LaTeX environment.
  559. With optional ARG>=1, find that outer level."
  560.   (setq arg (if arg (if (< arg 1) 1 arg) 1))
  561.   (save-excursion
  562.     (while (and
  563.         (/= arg 0)
  564.         (re-search-backward
  565.          (concat (regexp-quote TeX-esc) "begin" (regexp-quote TeX-grop)
  566.              "\\|"
  567.              (regexp-quote TeX-esc) "end" (regexp-quote TeX-grop)) 
  568.          nil t 1))
  569.       (cond ((TeX-in-comment)
  570.          (beginning-of-line 1))
  571.         ((looking-at (concat (regexp-quote TeX-esc)
  572.                  "end" (regexp-quote TeX-grop)))
  573.          (setq arg (1+ arg)))
  574.         (t
  575.         (setq arg (1- arg)))))
  576.     (if (/= arg 0)
  577.     "document"
  578.       (search-forward TeX-grop)
  579.       (let ((beg (point)))
  580.     (search-forward TeX-grcl)
  581.     (backward-char 1)
  582.     (buffer-substring beg (point))))))
  583.  
  584. (defun TeX-near-bobp ()
  585.   ;; Return t iff there's nothing but whitespace between (bob) and (point).
  586.   (save-excursion
  587.     (skip-chars-backward " \t\n")
  588.     (bobp)))
  589.  
  590. ;;; Environment Hooks
  591.  
  592. (defvar LaTeX-document-style-hook nil
  593.   "List of hooks to run when inserting a document style environment.
  594.  
  595. To insert a hook here, you must insert it in the appropiate style file.")
  596.  
  597. (defun LaTeX-env-document (&optional ignore)
  598.   "Create new LaTeX document."
  599.  
  600.   (TeX-insert-macro (if (string-equal LaTeX-version "2")
  601.             "documentstyle"
  602.               "documentclass"))
  603.  
  604.   (newline 3)
  605.   (end-of-line 0)
  606.   (LaTeX-insert-environment "document")
  607.   (run-hooks 'LaTeX-document-style-hook)
  608.   (setq LaTeX-document-style-hook nil))
  609.  
  610. (defcustom LaTeX-float "htbp"
  611.   "*Default float when creating figure and table environments.
  612. Set to nil if you don't want any float."
  613.   :group 'LaTeX-environment
  614.   :type '(choice (const :tag "none" nil)
  615.          (string :format "%v")))
  616.  (make-variable-buffer-local 'LaTeX-float)
  617.  
  618. (defgroup LaTeX-label nil
  619.   "Adding labels for LaTeX commands in AUC TeX."
  620.   :group 'LaTeX)
  621.  
  622. (defcustom LaTeX-label-function nil
  623.   "*A function inserting a label at point.
  624. Sole argument of the function is the environment. The function has to return
  625. the label inserted, or nil if no label was inserted."
  626.   :group 'LaTeX-label
  627.   :type 'function)
  628.  
  629. (defcustom LaTeX-figure-label "fig:"
  630.   "*Default prefix to figure labels."
  631.   :group 'LaTeX-label
  632.   :group 'LaTeX-environment
  633.   :type 'string)
  634.  (make-variable-buffer-local 'LaTeX-figure-label)
  635.  
  636. (defcustom LaTeX-table-label "tab:"
  637.   "*Default prefix to table labels."
  638.   :group 'LaTeX-label
  639.   :group 'LaTeX-environment
  640.   :type 'string)
  641.  (make-variable-buffer-local 'LaTeX-table-label)
  642.  
  643. (defcustom LaTeX-default-format ""
  644.   "Specifies the default format string for array and tabular environments."
  645.   :group 'LaTeX-environment
  646.   :type 'string)
  647.  (make-variable-buffer-local 'LaTeX-default-format)
  648.  
  649. (defcustom LaTeX-default-position ""
  650.   "Specifies the default position string for array and tabular environments."
  651.   :group 'LaTeX-environment
  652.   :type 'string)
  653.  (make-variable-buffer-local 'LaTeX-default-position)
  654.  
  655. (defcustom LaTeX-equation-label "eq:"
  656.   "*Default prefix to equation labels."
  657.   :group 'LaTeX-label
  658.   :type 'string)
  659.  (make-variable-buffer-local 'LaTeX-equation-label)
  660.  
  661. (defcustom LaTeX-eqnarray-label LaTeX-equation-label
  662.   "*Default prefix to eqnarray labels."
  663.   :group 'LaTeX-label
  664.   :type 'string)
  665.  (make-variable-buffer-local 'LaTeX-eqnarray-label)
  666.  
  667. (defun LaTeX-env-item (environment)
  668.   "Insert ENVIRONMENT and the first item."
  669.   (LaTeX-insert-environment environment)
  670.   (if (TeX-active-mark)
  671.       (progn
  672.     (LaTeX-find-matching-begin)
  673.     (end-of-line 1))
  674.     (end-of-line 0))
  675.   (delete-char 1)
  676.   (delete-horizontal-space)
  677.   (LaTeX-insert-item))
  678.  
  679. (defun LaTeX-label (environment)
  680.   "Insert a label for ENVIRONMENT at point.
  681. If LaTeX-label-function is a valid function, LaTeX label will transfer the
  682. job to this function."
  683.   (let (label)
  684.     (if (and (boundp 'LaTeX-label-function)
  685.          LaTeX-label-function
  686.          (fboundp LaTeX-label-function))
  687.  
  688.     (setq label (funcall LaTeX-label-function environment))
  689.       (let ((prefix
  690.          (cond
  691.           ((string= "figure" environment) LaTeX-figure-label)
  692.           ((string= "table"  environment) LaTeX-table-label)
  693.           ((string= "figure*" environment) LaTeX-figure-label)
  694.           ((string= "table*"  environment) LaTeX-table-label)
  695.           ((string= "equation" environment) LaTeX-equation-label)
  696.           ((string= "eqnarray"  environment) LaTeX-eqnarray-label)
  697.           ((assoc environment LaTeX-section-list)
  698.            (cond
  699.         ((stringp LaTeX-section-label) LaTeX-section-label)
  700.         ((and (listp LaTeX-section-label)
  701.               (assoc environment LaTeX-section-label))
  702.          (cdr (assoc environment LaTeX-section-label)))
  703.         (t nil)))
  704.           (t ""))))
  705.     (if prefix
  706.         (progn
  707.           (setq label (read-string "What label: " prefix))
  708.           (if (string= prefix label)
  709.           (setq label nil)     ; No label eneterd
  710.         (insert TeX-esc "label" TeX-grop label TeX-grcl)))))
  711.       (if label
  712.       (progn
  713.         (LaTeX-add-labels label)
  714.         label)
  715.     nil))))
  716.  
  717.  
  718. (defun LaTeX-env-figure (environment)
  719.   "Create ENVIRONMENT with \\label and \\caption commands."
  720.   (let ((float (read-string "Float to: " LaTeX-float))
  721.     (caption (read-string "Caption: "))
  722.         (center (y-or-n-p "Center: ")))
  723.  
  724.     (setq LaTeX-float (if (zerop (length float))
  725.               LaTeX-float
  726.             float))
  727.       
  728.     (LaTeX-insert-environment environment
  729.                   (and LaTeX-float
  730.                    (concat LaTeX-optop
  731.                        LaTeX-float
  732.                        LaTeX-optcl)))
  733.     
  734.     (if center
  735.     (progn
  736.       (LaTeX-insert-environment "center")))
  737.     
  738.     (newline-and-indent)
  739.     (LaTeX-label environment)
  740.     (end-of-line 0)
  741.     (LaTeX-indent-line)
  742.  
  743.     (if (zerop (length caption))
  744.     ()
  745.       ;; NOTE: Caption is _inside_ center because that looks best typeset.
  746.       (newline-and-indent)
  747.       (insert TeX-esc "caption" TeX-grop caption TeX-grcl)
  748.       (end-of-line 0)
  749.       (LaTeX-indent-line))
  750.  
  751.     (if (member environment '("table" "table*"))
  752.     (LaTeX-env-array "tabular"))))
  753.  
  754. (defun LaTeX-env-array (environment)
  755.   "Insert ENVIRONMENT with position and column specifications.
  756. Just like array and tabular."
  757.   (let ((pos (read-string "Position: "))
  758.     (fmt (read-string "Format: " LaTeX-default-format)))
  759.     (setq LaTeX-default-position pos)
  760.       (setq LaTeX-default-format fmt)
  761.     (LaTeX-insert-environment environment
  762.                   (concat
  763.                     (if (not (zerop (length pos)))
  764.                     (format "[%s]" pos))
  765.                 (format "{%s}" fmt)))
  766.     (end-of-line 0)
  767.     (next-line 1)
  768.     (delete-horizontal-space)))
  769.  
  770. (defun LaTeX-env-label (environment)
  771.   "Insert ENVIRONMENT and prompt for label."
  772.   (LaTeX-insert-environment environment)
  773.   (and (LaTeX-label environment)
  774.        (newline-and-indent)))
  775.  
  776. (defun LaTeX-env-list (environment)
  777.   "Insert ENVIRONMENT and the first item."
  778.   (let ((label (read-string "Default Label: ")))
  779.     (LaTeX-insert-environment environment
  780.                   (format "{%s}{}" label))
  781.     (end-of-line 0)
  782.     (delete-char 1)
  783.     (delete-horizontal-space))
  784.   (LaTeX-insert-item))
  785.  
  786. (defun LaTeX-env-minipage (environment)
  787.   "Create new LaTeX minipage."
  788.   (let ((pos (read-string "Position: " LaTeX-default-position))
  789.     (width (read-string "Width: ")))
  790.     (setq LaTeX-default-position pos)
  791.     (if (zerop (length width))
  792.     (setq width "4cm"))
  793.     (LaTeX-insert-environment environment
  794.                   (concat (if (not (zerop (length pos)))
  795.                       (format "[%s]" pos))
  796.                       (format "{%s}" width)))
  797.     (end-of-line 0)
  798.     (next-line 1)
  799.     (delete-horizontal-space)))
  800.  
  801. (defun LaTeX-env-tabular* (environment)
  802.   "Insert ENVIRONMENT with width, position and column specifications."
  803.   (let ((width (read-string "Width: "))
  804.     (pos (read-string "Position: " LaTeX-default-position))
  805.     (fmt (read-string "Format: " LaTeX-default-format)))
  806.     (setq LaTeX-default-position pos)
  807.     (setq LaTeX-default-format fmt)
  808.     (LaTeX-insert-environment environment
  809.                   (concat
  810.                     (if (not (zerop (length width)))
  811.                     (format "{%s}" width))
  812.                     (if (not (zerop (length pos)))
  813.                       (format "[%s]" pos))
  814.                 (format "{%s}" fmt)))
  815.     (end-of-line 0)
  816.     (next-line 1)
  817.     (delete-horizontal-space)))
  818.  
  819. (defun LaTeX-env-picture (environment)
  820.   "Insert ENVIRONMENT with width, height specifications."
  821.   (let ((width (read-string "Width: "))
  822.     (height (read-string "Height: "))
  823.     (x-offset (read-string "X Offset: "))
  824.     (y-offset (read-string "Y Offset: ")))
  825.     (if (zerop (length x-offset))
  826.     (setq x-offset "0"))
  827.     (if (zerop (length y-offset))
  828.     (setq y-offset "0"))
  829.     (LaTeX-insert-environment environment
  830.                   (concat (format "(%s,%s)" width height)
  831.                       (if (not (and (string= x-offset "0")
  832.                             (string= y-offset "0")))
  833.                       (format "(%s,%s)" x-offset y-offset))))
  834.                       
  835.     (end-of-line 0)
  836.     (next-line 1)
  837.     (delete-horizontal-space)))
  838.  
  839. (defun LaTeX-env-bib (environment)
  840.   "Insert ENVIRONMENT with label for bibitem."
  841.   (LaTeX-insert-environment environment
  842.                 (concat TeX-grop
  843.                     (read-string "Label for BibItem: " "99")
  844.                     TeX-grcl))
  845.   (end-of-line 0)
  846.   (delete-char 1)
  847.   (delete-horizontal-space)
  848.   (LaTeX-insert-item))
  849.  
  850. ;;; Item hooks
  851.  
  852. (defvar LaTeX-item-list nil
  853.   "An list of environments where items have a special syntax. 
  854. The cdr is the name of the function, used to insert this kind of items.")
  855.  
  856. (defun LaTeX-insert-item ()
  857.   "Insert a new item in an environment.
  858. You may use LaTeX-item-list to change the routines used to insert the item."
  859.   (interactive "*")
  860.   (let ((environment (LaTeX-current-environment)))
  861.     (newline)
  862.     (if (assoc environment LaTeX-item-list)
  863.     (funcall (cdr (assoc environment LaTeX-item-list)))
  864.       (TeX-insert-macro "item"))
  865.     (LaTeX-indent-line)))
  866.  
  867. (defun LaTeX-item-argument ()
  868.   "Insert a new item with an optional argument."
  869.   (let ((TeX-arg-item-label-p t))
  870.     (TeX-insert-macro "item")))
  871.  
  872. (defun LaTeX-item-bib ()
  873.   "Insert a new bibitem."
  874.   (TeX-insert-macro "bibitem"))
  875.  
  876. ;;; Parser
  877.  
  878. (defvar LaTeX-auto-minimal-regexp-list
  879.   '(("\\\\document\\(style\\|class\\)\
  880. \\(\\[\\(\\([^#\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)\\]\\)?\
  881. {\\([^#\\\\\\.\n\r]+\\)}"
  882.      (3 5 1) LaTeX-auto-style))
  883.   "Minimal list of regular expressions matching LaTeX macro definitions.")
  884.  
  885. (defvar LaTeX-auto-label-regexp-list
  886.   '(("\\\\label{\\([^\n\r%\\{}]+\\)}" 1 LaTeX-auto-label))
  887.   "List of regular expression matching LaTeX labels only.")
  888.  
  889. (defvar LaTeX-auto-regexp-list 
  890.   (append
  891.    '(("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]\
  892. \\[\\([^\]\\\\\n\r]+\\)\\]"
  893.       (1 2 3) LaTeX-auto-optional)
  894.      ("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]"
  895.       (1 2) LaTeX-auto-arguments)
  896.      ("\\\\newcommand{?\\\\\\([a-zA-Z]+\\)}?" 1 TeX-auto-symbol)
  897.      ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]\\["
  898.       1 LaTeX-auto-environment)
  899.      ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?\\[\\([0-9]+\\)\\]"
  900.       (1 2) LaTeX-auto-env-args)
  901.      ("\\\\newenvironment{?\\([a-zA-Z]+\\)}?" 1 LaTeX-auto-environment)
  902.      ("\\\\newtheorem{\\([a-zA-Z]+\\)}" 1 LaTeX-auto-environment)
  903.      ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
  904.       1 TeX-auto-file)
  905.      ("\\\\include{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
  906.       1 TeX-auto-file)
  907.      ("\\\\usepackage\\(\\[[^\]\\\\]*\\]\\)?\
  908. {\\(\\([^#}\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)}"
  909.       (2) LaTeX-auto-style)
  910.      ("\\\\bibitem{\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)}" 1 LaTeX-auto-bibitem)
  911.      ("\\\\bibitem\\[[^][\n\r]+\\]{\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)}"
  912.       1 LaTeX-auto-bibitem)
  913.      ("\\\\bibliography{\\([^#}\\\\\n\r]+\\)}" 1 LaTeX-auto-bibliography))
  914.    LaTeX-auto-label-regexp-list
  915.    LaTeX-auto-minimal-regexp-list)
  916.   "List of regular expression matching common LaTeX macro definitions.")
  917.  
  918. (defun LaTeX-auto-prepare ()
  919.   ;; Prepare for LaTeX parsing.
  920.   (setq LaTeX-auto-arguments nil
  921.     LaTeX-auto-optional nil
  922.     LaTeX-auto-env-args nil
  923.     LaTeX-auto-style nil
  924.     LaTeX-auto-end-symbol nil))
  925.  
  926. (add-hook 'TeX-auto-prepare-hook 'LaTeX-auto-prepare)
  927.   
  928. (defun LaTeX-auto-cleanup ()
  929.   ;; Cleanup after LaTeX parsing.
  930.  
  931.   ;; Cleanup BibTeX files
  932.   (setq LaTeX-auto-bibliography
  933.     (apply 'append (mapcar (function (lambda (arg)
  934.                        (TeX-split-string "," arg)))
  935.                    LaTeX-auto-bibliography)))
  936.     
  937.   ;; Cleanup document styles and packages
  938.   (if (null LaTeX-auto-style)
  939.       ()
  940.     (while LaTeX-auto-style
  941.       (let* ((entry (car LaTeX-auto-style))
  942.          (options (nth 0 entry))
  943.          (style (nth 1 entry))
  944.          (class (nth 2 entry)))
  945.  
  946.     ;; Next document style.
  947.     (setq LaTeX-auto-style (cdr LaTeX-auto-style))
  948.  
  949.     ;; Get the options.
  950.     (setq options (TeX-split-string 
  951.                "\\([ \t\r\n]\\|%[^\n\r]*[\n\r]\\|,\\)+"
  952.                options))
  953.  
  954.     ;; Strip empty options.
  955.     (if (string-equal (car options) "")
  956.         (setq options (cdr options)))
  957.     (let ((index options))
  958.       (while (cdr-safe index)
  959.         (if (string-equal (car (cdr index)) "")
  960.         (setcdr index (cdr (cdr index)))
  961.           (setq index (cdr index)))))
  962.  
  963.     ;; Add them, to the style list.
  964.     (setq TeX-auto-file (append options TeX-auto-file))
  965.  
  966.     ;; The second argument if present is a normal style file.
  967.     (if (null style)
  968.         ()
  969.       (setq TeX-auto-file (cons style TeX-auto-file))
  970.  
  971.       ;; And a special "art10" style file combining style and size.
  972.       (setq TeX-auto-file
  973.         (cons (concat 
  974.                (cond ((string-equal "article" style)
  975.                   "art")
  976.                  ((string-equal "book" style)
  977.                   "bk")
  978.                  ((string-equal "report" style)
  979.                   "rep")
  980.                  ((string-equal "jarticle" style)
  981.                   "jart")
  982.                  ((string-equal "jbook" style)
  983.                   "jbk")
  984.                  ((string-equal "jreport" style)
  985.                   "jrep")
  986.                  ((string-equal "j-article" style)
  987.                   "j-art")
  988.                  ((string-equal "j-book" style)
  989.                   "j-bk")
  990.                  ((string-equal "j-report" style )
  991.                   "j-rep")
  992.                  (t style))
  993.                (cond ((member "11pt" options)
  994.                   "11")
  995.                  ((member "12pt" options)
  996.                   "12")
  997.                  (t
  998.                   "10")))
  999.               TeX-auto-file)))
  1000.  
  1001.     ;; The third argument if "class" indicates LaTeX2e features.
  1002.     (cond ((equal class "class")
  1003.            (setq TeX-auto-file (cons "latex2e" TeX-auto-file)))
  1004.           ((equal class "style")
  1005.            (setq TeX-auto-file (cons "latex2" TeX-auto-file)))))))
  1006.     
  1007.   ;; Cleanup optional arguments
  1008.   (mapcar (function (lambda (entry)
  1009.               (setq TeX-auto-symbol
  1010.                 (cons (list (nth 0 entry)
  1011.                     (string-to-int (nth 1 entry)))
  1012.                   TeX-auto-symbol))))
  1013.       LaTeX-auto-arguments)
  1014.  
  1015.   ;; Cleanup default optional arguments
  1016.   (mapcar (function (lambda (entry)
  1017.               (setq TeX-auto-symbol
  1018.                 (cons (list (nth 0 entry)
  1019.                     (vector "argument")
  1020.                     (1- (string-to-int (nth 1 entry))))
  1021.                   TeX-auto-symbol))))
  1022.       LaTeX-auto-optional)
  1023.  
  1024.   ;; Cleanup environments arguments
  1025.   (mapcar (function (lambda (entry)
  1026.               (setq LaTeX-auto-environment
  1027.                 (cons (list (nth 0 entry)
  1028.                     (string-to-int (nth 1 entry)))
  1029.                   LaTeX-auto-environment))))
  1030.       LaTeX-auto-env-args)
  1031.     
  1032.   ;; Cleanup use of def to add environments
  1033.   ;; NOTE: This uses an O(N^2) algorithm, while an O(N log N)
  1034.   ;; algorithm is possible.
  1035.   (mapcar (function (lambda (symbol)
  1036.               (if (not (TeX-member symbol TeX-auto-symbol 'equal))
  1037.               ;; No matching symbol, insert in list
  1038.               (setq TeX-auto-symbol
  1039.                 (cons (concat "end" symbol) TeX-auto-symbol))
  1040.             ;; Matching symbol found, remove from list
  1041.             (if (equal (car TeX-auto-symbol) symbol)
  1042.                 ;; Is it the first symbol?
  1043.                 (setq TeX-auto-symbol (cdr TeX-auto-symbol))
  1044.               ;; Nope!  Travel the list
  1045.               (let ((list TeX-auto-symbol))
  1046.                 (while (consp (cdr list))
  1047.                   ;; Until we find it.
  1048.                   (if (equal (car (cdr list)) symbol)
  1049.                   ;; Then remove it.
  1050.                   (setcdr list (cdr (cdr list))))
  1051.                   (setq list (cdr list)))))
  1052.             ;; and add the symbol as an environment.
  1053.             (setq LaTeX-auto-environment
  1054.                   (cons symbol LaTeX-auto-environment)))))
  1055.       LaTeX-auto-end-symbol))
  1056.  
  1057. (add-hook 'TeX-auto-cleanup-hook 'LaTeX-auto-cleanup)
  1058.  
  1059. (TeX-auto-add-type "label" "LaTeX")
  1060. (TeX-auto-add-type "bibitem" "LaTeX")
  1061. (TeX-auto-add-type "environment" "LaTeX")
  1062. (TeX-auto-add-type "bibliography" "LaTeX" "bibliographies")
  1063.  
  1064. (fset 'LaTeX-add-bibliographies-auto
  1065.       (symbol-function 'LaTeX-add-bibliographies))
  1066. (defun LaTeX-add-bibliographies (&rest bibliographies)
  1067.   "Add BIBLIOGRAPHIES to the list of known bibliographies and style files."
  1068.   (apply 'LaTeX-add-bibliographies-auto bibliographies)
  1069.   (apply 'TeX-run-style-hooks bibliographies))
  1070.  
  1071. (fset 'LaTeX-add-environments-auto
  1072.       (symbol-function 'LaTeX-add-environments))
  1073. (defun LaTeX-add-environments (&rest environments)
  1074.   "Add ENVIRONMENTS to the list of known environments."
  1075.   (apply 'LaTeX-add-environments-auto environments)
  1076.   (setq LaTeX-menu-changed t))
  1077.  
  1078. ;;; BibTeX
  1079.  
  1080. ;;;###autoload
  1081. (defun BibTeX-auto-store ()
  1082.   "This function should be called from bibtex-mode-hook.
  1083. It will setup BibTeX to store keys in an auto file."
  1084.   ;; We want this to be early in the list, so we do not
  1085.   ;; add it before we enter BibTeX mode the first time. 
  1086.   (if (boundp 'local-write-file-hooks)
  1087.       (add-hook 'local-write-file-hooks 'TeX-safe-auto-write)
  1088.     (add-hook 'write-file-hooks 'TeX-safe-auto-write))
  1089.   (make-local-variable 'TeX-auto-update)
  1090.   (setq TeX-auto-update 'BibTeX)
  1091.   (make-local-variable 'TeX-auto-untabify)
  1092.   (setq TeX-auto-untabify nil)
  1093.   (make-local-variable 'TeX-auto-parse-length)
  1094.   (setq TeX-auto-parse-length 999999)
  1095.   (make-local-variable 'TeX-auto-regexp-list)
  1096.   (setq TeX-auto-regexp-list BibTeX-auto-regexp-list))
  1097.  
  1098. (defvar BibTeX-auto-regexp-list
  1099.   '(("@[Ss][Tt][Rr][Ii][Nn][Gg]" 1 ignore)
  1100.     ("@[a-zA-Z]+[{(][ \t]*\\([a-zA-Z][^, \n\r\t%\"#'()={}]*\\)"
  1101.      1 LaTeX-auto-bibitem))
  1102.   "List of regexp-list expressions matching BibTeX items.")
  1103.  
  1104. ;;; Macro Argument Hooks
  1105.  
  1106. (defun TeX-arg-conditional (optional expr then else)
  1107.   "Implement if EXPR THEN ELSE.
  1108.  
  1109. If EXPR evaluate to true, parse THEN as an argument list, else parse
  1110. ELSE as an argument list."
  1111.   (TeX-parse-arguments (if (eval expr) then else)))
  1112.  
  1113. (defun TeX-arg-free (optional &optional &rest args)
  1114.   "Parse its arguments but use no braces when they are inserted."
  1115.   (let ((< "")
  1116.     (> ""))
  1117.     (if (equal (length args) 1)
  1118.     (TeX-parse-argument optional (car args))
  1119.       (TeX-parse-argument optional args))))
  1120.  
  1121. (defun TeX-arg-literal (optional &optional &rest args)
  1122.   "Insert its arguments into the buffer.  
  1123. Used for specifying extra syntax for a macro."
  1124.   (apply 'insert args))
  1125.  
  1126. (defun TeX-arg-eval (optional &rest args)
  1127.   "Evaluate args and insert value in buffer."
  1128.   (TeX-argument-insert (eval args) optional))
  1129.  
  1130. (defun TeX-arg-label (optional &optional prompt definition)
  1131.   "Prompt for a label completing with known labels."
  1132.   (let ((label (completing-read (TeX-argument-prompt optional prompt "Key")
  1133.                 (LaTeX-label-list))))
  1134.     (if (and definition (not (string-equal "" label)))
  1135.     (LaTeX-add-labels label))
  1136.     (TeX-argument-insert label optional optional)))
  1137.  
  1138. (defun TeX-arg-macro (optional &optional prompt definition)
  1139.   "Prompt for a TeX macro with completion."
  1140.   (let ((macro (completing-read (TeX-argument-prompt optional prompt
  1141.                              (concat "Macro: "
  1142.                                  TeX-esc)
  1143.                              t)
  1144.                 (TeX-symbol-list))))
  1145.     (if (and definition (not (string-equal "" macro)))
  1146.     (TeX-add-symbols macro))
  1147.     (TeX-argument-insert macro optional TeX-esc)))
  1148.  
  1149. (defun TeX-arg-environment (optional &optional prompt definition)
  1150.   "Prompt for a LaTeX environment with completion."
  1151.   (let ((environment (completing-read (TeX-argument-prompt optional prompt
  1152.                                "Environment")
  1153.                       (TeX-symbol-list))))
  1154.     (if (and definition (not (string-equal "" environment)))
  1155.     (LaTeX-add-environments environment))
  1156.  
  1157.     (TeX-argument-insert environment optional)))
  1158.  
  1159. (defun TeX-arg-cite (optional &optional prompt definition)
  1160.   "Prompt for a BibTeX citation with completion."
  1161.   (setq prompt (concat (if optional "(Optional) " "")
  1162.                (if prompt prompt "Add key")
  1163.                ": (default none) "))
  1164.   (let ((items (multi-prompt "," t prompt (LaTeX-bibitem-list))))
  1165.     (apply 'LaTeX-add-bibitems items)
  1166.     (TeX-argument-insert (mapconcat 'identity items ",") optional optional)))
  1167.  
  1168. (defun TeX-arg-counter (optional &optional prompt definition)
  1169.   "Prompt for a LaTeX counter."
  1170.   ;; Completion not implemented yet.
  1171.   (TeX-argument-insert
  1172.    (read-string (TeX-argument-prompt optional prompt "Counter"))
  1173.    optional))
  1174.  
  1175. (defun TeX-arg-savebox (optional &optional prompt definition)
  1176.   "Prompt for a LaTeX savebox."
  1177.   ;; Completion not implemented yet.
  1178.   (TeX-argument-insert
  1179.    (read-string (TeX-argument-prompt optional prompt
  1180.                      (concat "Savebox: " TeX-esc)
  1181.                      t))
  1182.    optional TeX-esc))
  1183.  
  1184. (defun TeX-arg-file (optional &optional prompt)
  1185.   "Prompt for a filename in the current directory."
  1186.   (TeX-argument-insert (read-file-name (TeX-argument-prompt optional
  1187.                                 prompt "File")
  1188.                        "" "" nil)
  1189.                optional))
  1190.  
  1191. (defun TeX-arg-define-label (optional &optional prompt)
  1192.   "Prompt for a label completing with known labels."
  1193.   (TeX-arg-label optional prompt t))
  1194.  
  1195. (defun TeX-arg-define-macro (optional &optional prompt)
  1196.   "Prompt for a TeX macro with completion."
  1197.   (TeX-arg-macro optional prompt t))
  1198.  
  1199. (defun TeX-arg-define-environment (optional &optional prompt)
  1200.   "Prompt for a LaTeX environment with completion."
  1201.   (TeX-arg-environment optional prompt t))
  1202.  
  1203. (defun TeX-arg-define-cite (optional &optional prompt)
  1204.   "Prompt for a BibTeX citation."
  1205.   (TeX-arg-cite optional prompt t))
  1206.  
  1207. (defun TeX-arg-define-counter (optional &optional prompt)
  1208.   "Prompt for a LaTeX counter."
  1209.   (TeX-arg-counter optional prompt t))
  1210.  
  1211. (defun TeX-arg-define-savebox (optional &optional prompt)
  1212.   "Prompt for a LaTeX savebox."
  1213.   (TeX-arg-savebox optional prompt t))
  1214.  
  1215. (defcustom LaTeX-style-list '(("book")
  1216.                   ("article")
  1217.                   ("letter")
  1218.                   ("slides")
  1219.                   ("report"))
  1220.   "List of document styles."
  1221.   :group 'LaTeX-environment
  1222.   :type '(repeat (group (string :format "%v"))))
  1223.  
  1224.   (make-variable-buffer-local 'LaTeX-style-list)
  1225.  
  1226. (defun TeX-arg-document (optional &optional ignore)
  1227.   "Insert arguments to documentstyle and documentclass."
  1228.   (let ((style (completing-read 
  1229.         (concat "Document style: (default " LaTeX-default-style ") ")
  1230.         LaTeX-style-list))
  1231.     (options (read-string "Options: "
  1232.                   (if (stringp LaTeX-default-options)
  1233.                   LaTeX-default-options
  1234.                 (mapconcat 'identity
  1235.                        LaTeX-default-options
  1236.                        ",")))))
  1237.     (if (zerop (length style))
  1238.     (setq style LaTeX-default-style))
  1239.     (if (not (zerop (length options)))
  1240.     (insert LaTeX-optop options LaTeX-optcl))
  1241.     (insert TeX-grop style TeX-grcl))
  1242.  
  1243.   ;; remove old information
  1244.   (TeX-remove-style)
  1245.  
  1246.   ;; defined in individual style hooks
  1247.   (TeX-update-style))
  1248.  
  1249. (defvar TeX-global-input-files nil
  1250.   "List of the non-local TeX input files. 
  1251.  
  1252. Initialized once at the first time you prompt for an input file.
  1253. May be reset with `C-u \\[TeX-normal-mode]'.")
  1254.  
  1255. (defun TeX-arg-input-file (optionel &optional prompt local)
  1256.   "Prompt for a tex or sty file.
  1257.  
  1258. First optional argument is the promt, the second is a flag.  
  1259. If the flag is set, only complete with local files."
  1260.   (if (or TeX-global-input-files local)
  1261.       ()
  1262.     (message "Searching for files...")
  1263.     (setq TeX-global-input-files
  1264.       (mapcar 'list (TeX-search-files (append TeX-macro-private
  1265.                           TeX-macro-global)
  1266.                       TeX-file-extensions t t))))
  1267.   (let ((file (if TeX-check-path
  1268.           (completing-read
  1269.            (TeX-argument-prompt optionel prompt "File")
  1270.            (append (mapcar 'list
  1271.                    (TeX-search-files '(".")
  1272.                              TeX-file-extensions
  1273.                              t t))
  1274.                (if local
  1275.                    nil
  1276.                  TeX-global-input-files)))
  1277.         (read-file-name
  1278.          (TeX-argument-prompt optionel prompt "File")))))
  1279.     (if (null file)
  1280.     (setq file ""))
  1281.     (if (not (string-equal "" file))
  1282.     (TeX-run-style-hooks file))
  1283.     (TeX-argument-insert file optionel)))
  1284.  
  1285. (defvar BibTeX-global-style-files nil
  1286.   "Association list of BibTeX style files.
  1287.  
  1288. Initialized once at the first time you prompt for an input file.
  1289. May be reset with `C-u \\[TeX-normal-mode]'.")
  1290.  
  1291. (defun TeX-arg-bibstyle (optional &optional prompt)
  1292.   "Prompt for a BibTeX style file."
  1293.   (message "Searching for BibTeX styles...")
  1294.   (or BibTeX-global-style-files
  1295.       (setq BibTeX-global-style-files
  1296.         (mapcar 'list
  1297.             (TeX-search-files (append TeX-macro-private
  1298.                           TeX-macro-global)
  1299.                       BibTeX-style-extensions t t))))
  1300.  
  1301.   (TeX-argument-insert
  1302.    (completing-read (TeX-argument-prompt optional prompt "BibTeX style")
  1303.             (append (mapcar 'list
  1304.                     (TeX-search-files '(".")
  1305.                               BibTeX-style-extensions
  1306.                               t t))
  1307.                 BibTeX-global-style-files))
  1308.    optional))
  1309.  
  1310. (defvar BibTeX-global-files nil
  1311.   "Association list of BibTeX files.
  1312.  
  1313. Initialized once at the first time you prompt for an BibTeX file.
  1314. May be reset with `C-u \\[TeX-normal-mode]'.")
  1315.  
  1316. (defun TeX-arg-bibliography (optional &optional prompt)
  1317.   "Prompt for a BibTeX database file."
  1318.   (message "Searching for BibTeX files...")
  1319.   (or BibTeX-global-files
  1320.       (setq BibTeX-global-files
  1321.         (mapcar 'list (TeX-search-files nil BibTeX-file-extensions t t))))
  1322.   
  1323.   (let ((styles (multi-prompt 
  1324.          "," t
  1325.          (TeX-argument-prompt optional prompt "BibTeX files")
  1326.          (append (mapcar 'list
  1327.                  (TeX-search-files '(".")
  1328.                            BibTeX-file-extensions
  1329.                            t t))
  1330.              BibTeX-global-files))))
  1331.     (apply 'LaTeX-add-bibliographies styles)
  1332.     (TeX-argument-insert (mapconcat 'identity styles ",") optional)))
  1333.  
  1334. (defun TeX-arg-corner (optional &optional prompt)
  1335.   "Prompt for a LaTeX side or corner position with completion."
  1336.   (TeX-argument-insert
  1337.    (completing-read (TeX-argument-prompt optional prompt "Position")
  1338.             '(("") ("l") ("r") ("t") ("b") ("tl") ("tr") ("bl") ("br"))
  1339.             nil t)
  1340.    optional))
  1341.  
  1342. (defun TeX-arg-lr (optional &optional prompt)
  1343.   "Prompt for a LaTeX side with completion."
  1344.   (TeX-argument-insert
  1345.    (completing-read (TeX-argument-prompt optional prompt "Position")
  1346.             '(("") ("l") ("r"))
  1347.             nil t)
  1348.    optional))
  1349.  
  1350. (defun TeX-arg-tb (optional &optional prompt)
  1351.   "Prompt for a LaTeX side with completion."
  1352.   (TeX-argument-insert
  1353.    (completing-read (TeX-argument-prompt optional prompt "Position")
  1354.             '(("") ("t") ("b"))
  1355.             nil t)
  1356.    optional))
  1357.  
  1358. (defun TeX-arg-pagestyle (optional &optional prompt)
  1359.   "Prompt for a LaTeX pagestyle with completion."
  1360.   (TeX-argument-insert
  1361.    (completing-read (TeX-argument-prompt optional prompt "Pagestyle")
  1362.             '(("plain") ("empty") ("headings") ("myheadings")))
  1363.    optional))
  1364.  
  1365. (defun TeX-arg-verb (optional &optional ignore)
  1366.   "Prompt for delimiter and text."
  1367.   (let ((del (read-quoted-char "Delimiter: "))
  1368.     (text (read-from-minibuffer "Text: ")))
  1369.     (insert del text del)))
  1370.  
  1371. (defun TeX-arg-pair (optional first second)
  1372.   "Insert a pair of number, prompted by FIRST and SECOND.
  1373.  
  1374. The numbers are surounded by parenthesizes and separated with a
  1375. comma."
  1376.   (insert "(" (read-string (concat first  ": ")) ","
  1377.           (read-string (concat second ": ")) ")"))
  1378.  
  1379. (defun TeX-arg-size (optional)
  1380.   "Insert width and height as a pair."
  1381.   (TeX-arg-pair optional "Width" "Height"))
  1382.  
  1383. (defun TeX-arg-coordinate (optional)
  1384.   "Insert x and y coordinate as a pair."
  1385.  (TeX-arg-pair optional "X position" "Y position"))
  1386.  
  1387. (defconst TeX-braces-default-association
  1388.   '(("[" . "]")
  1389.     ("\\{" . "\\}")
  1390.     ("(" . ")")
  1391.     ("|" . "|")
  1392.     ("\\|" . "\\|")
  1393.     ("/" . "/")
  1394.     ("\\backslash" . "\\backslash")
  1395.     ("\\lfloor" . "\\rfloor")
  1396.     ("\\lceil" . "\\rceil")
  1397.     ("\\langle" . "\\rangle")))
  1398.  
  1399. (defcustom TeX-braces-user-association nil
  1400.   "A list of your personal association of brace symbols.
  1401. These are used for \\left and \\right.
  1402.  
  1403. The car of each entry is the brace used with \\left,
  1404. the cdr is the brace used with \\right."
  1405.   :group 'LaTeX-macro
  1406.   :group 'LaTeX-math
  1407.   :type '(repeat (cons :format "%v"
  1408.                (string :tag "Left")
  1409.                (string :tag "Right"))))
  1410.  
  1411. (defvar TeX-braces-association
  1412.   (append TeX-braces-user-association
  1413.           TeX-braces-default-association)
  1414.     "A list of association of brace symbols for \\left and \\right.
  1415. The car of each entry is the brace used with \\left,
  1416. the cdr is the brace used with \\right.")
  1417.  
  1418. (defvar TeX-left-right-braces
  1419.   '(("[") ("]") ("\\{") ("\\}") ("(") (")") ("|") ("\\|")
  1420.     ("/") ("\\backslash") ("\\lfloor") ("\\rfloor")
  1421.     ("\\lceil") ("\\rceil") ("\\langle") ("\\rangle")
  1422.     ("\\uparrow") ("\\Uparrow") ("\\downarrow") ("\\Downarrow")
  1423.     ("\\updownarrow") ("\\Updownarrow") ("."))
  1424.   "List of symbols which can follow the \\left or \\right command")
  1425.  
  1426. (defun TeX-arg-insert-braces (optional &optional prompt)
  1427.   (save-excursion
  1428.     (backward-word 1)
  1429.     (backward-char)
  1430.     (newline-and-indent)
  1431.     (beginning-of-line 0)
  1432.     (if (looking-at "^[ \t]*$")
  1433.     (progn (delete-horizontal-space)
  1434.            (delete-char 1))))
  1435.   (let ((left-brace (completing-read
  1436.                      (TeX-argument-prompt optional prompt "Which brace")
  1437.                      TeX-left-right-braces)))
  1438.     (insert left-brace)
  1439.     (newline-and-indent)
  1440.     (save-excursion
  1441.       (let ((right-brace (cdr (assoc left-brace
  1442.                                      TeX-braces-association))))
  1443.     (newline)
  1444.         (insert TeX-esc "right")
  1445.         (if (and TeX-arg-right-insert-p
  1446.                  right-brace)
  1447.             (insert right-brace)
  1448.           (insert (completing-read
  1449.                    (TeX-argument-prompt optional prompt "Which brace")
  1450.                    TeX-left-right-braces)))
  1451.     (LaTeX-indent-line)))))
  1452.  
  1453. ;;; Indentation
  1454.  
  1455. (defgroup LaTeX-indentation nil
  1456.   "Indentation of LaTeX code in AUC TeX"
  1457.   :group 'LaTeX
  1458.   :group 'TeX-indentation)
  1459.  
  1460. (defcustom LaTeX-indent-level 2
  1461.   "*Indentation of begin-end blocks in LaTeX."
  1462.   :group 'LaTeX-indentation
  1463.   :type 'integer)
  1464.  
  1465. (defcustom LaTeX-item-indent (- LaTeX-indent-level)
  1466.   "*Extra indentation for lines beginning with an item."
  1467.   :group 'LaTeX-indentation
  1468.   :type 'integer)
  1469.  
  1470. (defcustom LaTeX-item-regexp "\\(bib\\)?item\\b"
  1471.   "*Regular expression matching macros considered items."
  1472.   :group 'LaTeX-indentation
  1473.   :type 'regexp)
  1474.  
  1475. (defun LaTeX-indent-line ()
  1476.   "Indent the line containing point, as LaTeX source.
  1477. Add LaTeX-indent-level indentation in each \\begin{ - \\end{ block.
  1478. Lines starting with an item is given an extra indentation of
  1479. LaTeX-item-indent."
  1480.   (interactive)
  1481.   (let ((indent (LaTeX-indent-calculate)))
  1482.     (save-excursion
  1483.       (if (/= (current-indentation) indent)
  1484.       (let ((beg (progn
  1485.                (beginning-of-line)
  1486.                (point))))
  1487.         (back-to-indentation)
  1488.         (delete-region beg (point))
  1489.         (indent-to indent))))
  1490.     (if (< (current-column) indent)
  1491.     (back-to-indentation))))
  1492.  
  1493. (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag)
  1494.   "Fill region as one paragraph.
  1495. Break lines to fit fill-column, but leave all lines ending with \\\\
  1496. \(plus its optional argument) alone. Prefix arg means justify too.
  1497. From program, pass args FROM, TO and JUSTIFY-FLAG."
  1498.   (interactive "*r\nP")
  1499.   (or (assoc (LaTeX-current-environment) LaTeX-indent-environment-list)
  1500.       (save-restriction
  1501.     (narrow-to-region from to)
  1502.     (goto-char from)
  1503.     (while (not (eobp))
  1504.       (LaTeX-indent-line)
  1505.       (forward-line))
  1506.     (goto-char from)
  1507.     (while (not (eobp))
  1508.       (if 
  1509.           (re-search-forward (concat "^.*"
  1510.                      (regexp-quote TeX-esc)
  1511.                      (regexp-quote TeX-esc)
  1512.                      "\\(\\s-*\\*\\)?"
  1513.                      "\\(\\s-*\\[[^]]*\\]\\)?\\s-*$") 
  1514.                  nil t)
  1515.           (progn
  1516.         (goto-char (match-end 0))
  1517.         (delete-horizontal-space)
  1518.         ;; I doubt very much if we want justify -
  1519.         ;; this is a line with \\
  1520.         ;; if you think otherwise - uncomment the next line
  1521.         ;; (and justify-flag (justify-current-line))
  1522.         (forward-char)
  1523.         ;; keep our position in a buffer
  1524.         (save-excursion
  1525.           (LaTeX-fill-region-as-para-do
  1526.            from (match-beginning 0) justify-flag))
  1527.         (setq from (point)))
  1528.         ;; ELSE part follows - loop termination relies on a fact
  1529.         ;; that (LaTeX-fill-region-as-para-do) moves point past
  1530.         ;; the filled region
  1531.         (LaTeX-fill-region-as-para-do from to justify-flag)))
  1532.     ;; the following four lines are clearly optional, but I like my
  1533.     ;; LaTeX code that way 
  1534.     (goto-char (point-min))
  1535.     (while (search-forward "$$ " nil t)
  1536.       (replace-match "$$\n" t t)
  1537.       (LaTeX-indent-line)))))
  1538.  
  1539. (defun LaTeX-fill-region-as-para-do (from to justify-flag)
  1540.   "Fill region as one paragraph: break lines to fit fill-column."
  1541.   (if (< from to)
  1542.       (progn
  1543.     ;; (save-restriction) here is likely not needed because
  1544.     ;; it was done by a caller, but I am not sure - mj
  1545.     (save-restriction
  1546.       (goto-char from)
  1547.       (skip-chars-forward " \n")
  1548.       (LaTeX-indent-line)
  1549.       (beginning-of-line)
  1550.       (narrow-to-region (point) to)
  1551.       (setq from (point))
  1552.  
  1553.       ;; from is now before the text to fill,
  1554.       ;; but after any fill prefix on the first line.
  1555.  
  1556.       ;; Make sure sentences ending at end of line get an extra space.
  1557.       (if (or (not (boundp 'sentence-end-double-space))
  1558.           sentence-end-double-space)
  1559.           (progn
  1560.         (goto-char from)
  1561.         (while (re-search-forward "[.?!][]})\"']*$" nil t)
  1562.           (insert ? ))))
  1563.       ;; The change all newlines to spaces.
  1564.     (subst-char-in-region from (point-max) ?\n ?\ )
  1565.     ;; Flush excess spaces, except in the paragraph indentation.
  1566.     (goto-char from)
  1567.     (skip-chars-forward " \t")
  1568.     (while (re-search-forward "   *" nil t)
  1569.       (delete-region
  1570.        (+ (match-beginning 0)
  1571.       (if (save-excursion
  1572.         (skip-chars-backward " ]})\"'")
  1573.         (memq (preceding-char) '(?. ?? ?!)))
  1574.           2 1))
  1575.        (match-end 0)))
  1576.     (goto-char (point-max))
  1577.     (delete-horizontal-space)
  1578.     (insert "  ")
  1579.     (goto-char (point-min))
  1580.     (let ((prefixcol 0))
  1581.       (while (not (eobp))
  1582.     (move-to-column (1+ fill-column))
  1583.     (if (eobp)
  1584.         nil
  1585.       (skip-chars-backward "^ \n")
  1586.       (if (if (zerop prefixcol)
  1587.           (bolp)
  1588.         (>= prefixcol (current-column)))
  1589.           (skip-chars-forward "^ \n")
  1590.         (forward-char -1)))
  1591.     (delete-horizontal-space)
  1592.     (if (equal (preceding-char) ?\\)
  1593.         (insert ? ))
  1594.     (insert ?\n)
  1595.     (LaTeX-indent-line)
  1596.     (setq prefixcol (current-column))
  1597.     (and justify-flag (not (eobp))
  1598.          (progn
  1599.            (forward-line -1)
  1600.            (justify-current-line)
  1601.            (forward-line 1)))
  1602.     )
  1603.       (goto-char (point-max))
  1604.       (delete-horizontal-space))))))
  1605.  
  1606. (defun LaTeX-fill-paragraph (prefix)
  1607.   "Fill and indent paragraph at or after point.
  1608. Prefix arg means justify as well."
  1609.   (interactive "*P")
  1610.   (save-excursion
  1611.     (beginning-of-line)
  1612.     (if (looking-at "[ \t]*%]")
  1613.     (re-search-forward "^[ \t]*[^% \t\n]"))
  1614.     (forward-paragraph)
  1615.     (or (bolp) (newline 1))
  1616.     (and (eobp) (open-line 1))
  1617.     (let ((end (point-marker))
  1618.       (start (progn
  1619.            (backward-paragraph)
  1620.            (point))))
  1621.       (LaTeX-fill-region-as-paragraph start end prefix))))
  1622.  
  1623. (defun LaTeX-fill-region (from to &optional justify what)
  1624.   "Fill and indent each of the paragraphs in the region as LaTeX text.
  1625. Prefix arg (non-nil third arg, if called from program)
  1626. means justify as well. Fourth arg WHAT is a word to be displayed when
  1627. formatting."
  1628.   (interactive "*r\nP")
  1629.   (save-restriction
  1630.     (save-excursion
  1631.       (let ((length (- to from))
  1632.         (to (set-marker (make-marker) to)))
  1633.     (goto-char from)
  1634.     (beginning-of-line)
  1635.     (while (< (point) to)
  1636.       (message "Formatting%s ... %d%%"
  1637.            (if (not what)
  1638.                ""
  1639.              what)
  1640.            (/ (* 100 (- (point) from)) length))
  1641.       (save-excursion (LaTeX-fill-paragraph justify))
  1642.       (forward-paragraph 2)
  1643.       (if (not (eobp))
  1644.           (backward-paragraph)))
  1645.     (set-marker to nil)))
  1646.     (message "Finished")))
  1647.  
  1648. (defun LaTeX-find-matching-end ()
  1649.   "Move point to the \\end of the current environment"
  1650.   (interactive)
  1651.   (let ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b"))
  1652.     (level 1))
  1653.     (beginning-of-line 1)
  1654.     (if (looking-at (concat " *" (regexp-quote TeX-esc) "begin\\b"))
  1655.     (end-of-line 1))
  1656.     (while (and (> level 0) (re-search-forward regexp nil t))
  1657.       (if (= (char-after (1+ (match-beginning 0))) ?b);;begin
  1658.       (setq level (1+ level))
  1659.     (setq level (1- level))))
  1660.     (if (= level 0)
  1661.     (search-forward "}")
  1662.       (error "Can't locate end of current environment"))))
  1663.  
  1664. (defun LaTeX-find-matching-begin ()
  1665.   "Move point to the \\begin of the current environment"
  1666.   (interactive)
  1667.   (let ((regexp (concat (regexp-quote TeX-esc) "\\(begin\\|end\\)\\b"))
  1668.     (level 1))
  1669.     (beginning-of-line 1)
  1670.     (if (looking-at (concat " *" (regexp-quote TeX-esc) "begin\\b"))
  1671.     (end-of-line 1))
  1672.     (while (and (> level 0) (re-search-backward regexp nil t))
  1673.       (if (= (char-after (1+ (match-beginning 0))) ?e);;end
  1674.       (setq level (1+ level))
  1675.     (setq level (1- level))))
  1676.     (or (= level 0)
  1677.     (error "Can't locate beginning of current environment"))))
  1678.  
  1679. (defun LaTeX-mark-environment ()
  1680.   "Set mark to end of current environment and point to the matching begin
  1681. will not work properly if there are unbalanced begin-end pairs in
  1682. comments and verbatim environments"
  1683.   (interactive)
  1684.   (let ((cur (point)))
  1685.     (LaTeX-find-matching-end)
  1686.     (beginning-of-line 2)
  1687.     (set-mark (point))
  1688.     (goto-char cur)
  1689.     (LaTeX-find-matching-begin)
  1690.     (TeX-activate-region)))
  1691.  
  1692. (defun LaTeX-fill-environment (justify)
  1693.   "Fill and indent current environment as LaTeX text."
  1694.   (interactive "*P")
  1695.   (save-excursion
  1696.     (LaTeX-mark-environment)
  1697.     (re-search-forward "{\\([^}]+\\)}")
  1698.     (LaTeX-fill-region
  1699.      (region-beginning)
  1700.      (region-end)
  1701.      justify
  1702.      (concat " environment " (TeX-match-buffer 1)))))
  1703.  
  1704. (defun LaTeX-fill-section (justify)
  1705.   "Fill and indent current logical section as LaTeX text."
  1706.   (interactive "*P")
  1707.   (save-excursion
  1708.     (LaTeX-mark-section)
  1709.     (re-search-forward "{\\([^}]+\\)}")
  1710.     (LaTeX-fill-region
  1711.      (region-beginning)
  1712.      (region-end)
  1713.      justify
  1714.      (concat " section " (TeX-match-buffer 1)))))
  1715.  
  1716. (defun LaTeX-mark-section ()
  1717.   "Set mark at end of current logical section, and point at top."
  1718.   (interactive)
  1719.   (re-search-forward (concat  "\\(" (LaTeX-outline-regexp)
  1720.                   "\\|\\'\\)"))
  1721.   (re-search-backward "^")
  1722.   (set-mark (point))
  1723.   (re-search-backward (concat "\\(" (LaTeX-outline-regexp)
  1724.                   "\\|\\`\\)"))
  1725.   (TeX-activate-region))
  1726.  
  1727. (defun LaTeX-fill-buffer (justify)
  1728.   "Fill and indent current buffer as LaTeX text."
  1729.   (interactive "*P")
  1730.   (save-excursion
  1731.     (LaTeX-fill-region
  1732.      (point-min)
  1733.      (point-max)
  1734.      justify
  1735.      (concat " buffer " (buffer-name)))))
  1736.  
  1737. (defvar LaTeX-indent-environment-list
  1738.   '(("verbatim" current-indentation)
  1739.     ("verbatim*" current-indentation)
  1740.     ;; The following should have there own, smart indentation function.
  1741.     ;; Some other day.
  1742.     ("alltt")
  1743.     ("array")
  1744.     ("displaymath")
  1745.     ("eqnarray")
  1746.     ("eqnarray*")
  1747.     ("equation")
  1748.     ("equation*")
  1749.     ("picture")
  1750.     ("tabbing")
  1751.     ("table")
  1752.     ("table*")
  1753.     ("tabular")
  1754.     ("tabular*"))
  1755.     "Alist of environments with special indentation.
  1756. The second element in each entry is the function to calculate the
  1757. indentation level in columns.")
  1758.  
  1759. (defcustom LaTeX-indent-environment-check t
  1760.   "*If non-nil, check for any special environments."
  1761.   :group 'LaTeX-indentation
  1762.   :type 'boolean)
  1763.  
  1764. (defcustom LaTeX-left-comment-regexp "%%%"
  1765.   "*Regexp matching comments that should be placed on the left margin."
  1766.   :group 'LaTeX-indentation
  1767.   :type 'regexp)
  1768.  
  1769. (defcustom LaTeX-right-comment-regexp "%[^%]"
  1770.   "*Regexp matching comments that should be placed to the right margin."
  1771.   :group 'LaTeX-indentation
  1772.   :type 'regexp)
  1773.  
  1774. (defcustom LaTeX-ignore-comment-regexp nil
  1775.   "*Regexp matching comments that whose indentation should not be touched."
  1776.   :group 'LaTeX-indentation
  1777.   :type '(choice (const :tag "none" nil)
  1778.          (regexp :format "%v")))
  1779.  
  1780. (defun LaTeX-indent-calculate ()
  1781.   ;; Return the correct indentation of line of LaTeX source. (I hope...)
  1782.   (save-excursion
  1783.     (back-to-indentation)
  1784.     (cond ((looking-at (concat (regexp-quote TeX-esc)
  1785.                    "\\(begin\\|end\\){verbatim\\*?}"))
  1786.        ;; \end{verbatim} must be flush left, otherwise an unwanted
  1787.        ;; empty line appears in LaTeX's output.
  1788.        0)
  1789.       ((and LaTeX-left-comment-regexp
  1790.         (looking-at LaTeX-left-comment-regexp))
  1791.        ;; Comments to the left margin.
  1792.        0)
  1793.       ((and LaTeX-right-comment-regexp
  1794.                 (looking-at LaTeX-right-comment-regexp))
  1795.            ;; Comments to the right margin.
  1796.        comment-column)
  1797.       ((and LaTeX-ignore-comment-regexp
  1798.                 (looking-at LaTeX-ignore-comment-regexp))
  1799.            ;; Comments best left alone.
  1800.        (current-indentation))
  1801.       ((and LaTeX-indent-environment-check
  1802.         ;; Special environments.
  1803.         (let ((entry (assoc (LaTeX-current-environment)
  1804.                     LaTeX-indent-environment-list)))
  1805.           (and entry
  1806.                (nth 1 entry)
  1807.                (funcall (nth 1 entry))))))
  1808.       ((looking-at (concat (regexp-quote TeX-esc) "end\\b"))
  1809.        ;; Backindent at \end.
  1810.        (- (LaTeX-indent-calculate-last) LaTeX-indent-level))
  1811.       ((looking-at (concat (regexp-quote TeX-esc) "right\\b"))
  1812.        ;; Backindent at \right.
  1813.        (- (LaTeX-indent-calculate-last) LaTeX-left-right-indent-level))
  1814.       ((looking-at (concat (regexp-quote TeX-esc) LaTeX-item-regexp))
  1815.        ;; Items.
  1816.        (+ (LaTeX-indent-calculate-last) LaTeX-item-indent))
  1817.       (t (LaTeX-indent-calculate-last)))))
  1818.  
  1819. (defcustom LaTeX-left-right-indent-level LaTeX-indent-level
  1820.   "*The level of indentation produced by a \\left macro."
  1821.   :group 'LaTeX-indentation
  1822.   :type 'integer)
  1823.  
  1824. (defun LaTeX-indent-level-count ()
  1825.   ;; Count indentation change caused by all \left, \right, \begin, and
  1826.   ;; \end commands in the current line.
  1827.   (save-excursion
  1828.     (save-restriction
  1829.       (let ((count 0))
  1830.     (narrow-to-region (point)
  1831.               (save-excursion
  1832.                 (re-search-forward (concat "[^"
  1833.                                (regexp-quote TeX-esc)
  1834.                                "]%\\|\n\\|\\'"))
  1835.                 (backward-char)
  1836.                 (point)))
  1837.     (while (search-forward TeX-esc nil t)
  1838.       (cond
  1839.        ((looking-at "left\\b")
  1840.         (setq count (+ count LaTeX-left-right-indent-level)))
  1841.        ((looking-at "right\\b")
  1842.         (setq count (- count LaTeX-left-right-indent-level)))
  1843.        ((looking-at "begin\\b")
  1844.         (setq count (+ count LaTeX-indent-level)))
  1845.        ((looking-at "end\\b")
  1846.         (setq count (- count LaTeX-indent-level)))
  1847.        ((looking-at (regexp-quote TeX-esc))
  1848.         (forward-char 1))))
  1849.     count))))
  1850.  
  1851. (defun LaTeX-indent-calculate-last ()
  1852.   "Return the correct indentation of a normal line of text.
  1853. The point is supposed to be at the beginning of the current line."
  1854.   (save-restriction
  1855.     (widen)
  1856.     (skip-chars-backward "\n\t ")
  1857.     (move-to-column (current-indentation))
  1858.  
  1859.     ;; Ignore comments.
  1860.     (while (and (looking-at (regexp-quote comment-start)) (not (bobp)))
  1861.       (skip-chars-backward "\n\t ")
  1862.       (if (not (bobp))
  1863.       (move-to-column (current-indentation))))
  1864.  
  1865.     (cond ((bobp) 0)
  1866.       ((looking-at (concat (regexp-quote TeX-esc) "begin{document}"))
  1867.        ;; I dislike having all of the document indented...
  1868.        (current-indentation))
  1869.       ((looking-at (concat (regexp-quote TeX-esc) "begin *"
  1870.                    (regexp-quote TeX-grop)
  1871.                    "verbatim\\*?"
  1872.                    (regexp-quote TeX-grcl)))
  1873.        0)
  1874.       ((looking-at (concat (regexp-quote TeX-esc) "end"
  1875.                    (regexp-quote TeX-grop)
  1876.                    "verbatim\\*?"
  1877.                    (regexp-quote TeX-grcl)))
  1878.        ;; If I see an \end{verbatim} in the previous line I skip
  1879.        ;; back to the preceding \begin{verbatim}.
  1880.        (save-excursion
  1881.          (if (re-search-backward (concat (regexp-quote TeX-esc)
  1882.                          "begin *"
  1883.                          (regexp-quote TeX-grop)
  1884.                          "verbatim\\*?"
  1885.                          (regexp-quote TeX-grcl)) 0 t)
  1886.          (LaTeX-indent-calculate-last)
  1887.            0)))
  1888.       (t (+ (current-indentation)
  1889.         (TeX-brace-count-line)
  1890.         (LaTeX-indent-level-count)
  1891.         (cond ((looking-at (concat (regexp-quote TeX-esc) "end\\b"))
  1892.                LaTeX-indent-level)
  1893.               ((looking-at (concat (regexp-quote TeX-esc) "right\\b"))
  1894.                LaTeX-left-right-indent-level)
  1895.               ((looking-at (concat (regexp-quote TeX-esc)
  1896.                        LaTeX-item-regexp))
  1897.                (- LaTeX-item-indent))
  1898.               (t 0)))))))
  1899.  
  1900. ;;; Math Minor Mode
  1901.  
  1902. (defgroup LaTeX-math nil
  1903.   "Mathematics in AUC TeX."
  1904.   :group 'LaTeX-macro)
  1905.  
  1906. (defcustom LaTeX-math-list nil
  1907.   "AList of your personal LaTeX math symbols.  
  1908.  
  1909. Each entry should be a list with three elements, KEY, VALUE, and MENU.
  1910. KEY is the key to be redefined (under `LaTeX-math-abbrev-prefix' in
  1911. math minor mode, VALUE can be a string with the name of the macro to
  1912. be inserted, or a function to be called.  The optional third element is
  1913. the name of the submenu where the command should be added.
  1914.  
  1915. See also `LaTeX-math-menu'."
  1916.   :group 'LaTeX-math
  1917.   :type '(repeat (group (choice (const :tag "none")
  1918.                 (character :format "%v\n"))
  1919.             (string :tag "Symbol")
  1920.             (choice :tag "Menu"
  1921.                 (string :tag "Name" :format "%v")
  1922.                 (repeat :tag "Path"
  1923.                     (string :format "%v"))))))
  1924.  
  1925. (defconst LaTeX-math-default
  1926.   '((?a "alpha" "greek")
  1927.     (?b "beta" "greek")
  1928.     (?c LaTeX-math-cal "Cal-whatever")
  1929.     (?d "delta" "greek")
  1930.     (?e "epsilon" "greek")
  1931.     (?f "phi" "greek")
  1932.     (?g "gamma" "greek")
  1933.     (?h  "eta" "greek")
  1934.     (?k "kappa" "greek")
  1935.     (?l "lambda" "greek")
  1936.     (?m "mu" "greek")
  1937.     (?N "nabla" "greek")
  1938.     (?n "nu" "greek")
  1939.     (?o "omega" "greek")
  1940.     (?p "pi" "greek")
  1941.     (?q "theta" "greek")
  1942.     (?r "rho" "greek")
  1943.     (?s "sigma" "greek")
  1944.     (?t "tau" "greek")
  1945.     (?u "upsilon" "greek")
  1946.     (?x "chi" "greek")
  1947.     (?y "psi" "greek")
  1948.     (?z "zeta" "greek")
  1949.     (?D "Delta" "Greek")
  1950.     (?F "Phi" "Greek")
  1951.     (?G "Gamma" "Greek")
  1952.     (?Q "Theta" "Greek")
  1953.     (?L "Lambda" "Greek")
  1954.     (?Y "Psi" "Greek")
  1955.     (?P "Pi" "Greek")
  1956.     (?S "Sigma" "Greek")
  1957.     (?U "Upsilon" "Greek")
  1958.     (?O "Omega" "Greek")
  1959.     (nil "pm" "Binary Op")
  1960.     (nil "mp" "Binary Op")
  1961.     (?* "times" "Binary Op")
  1962.     (nil "div" "Binary Op")
  1963.     (nil "ast" "Binary Op")
  1964.     (nil "star" "Binary Op")
  1965.     (nil "circ" "Binary Op")
  1966.     (nil "bullet" "Binary Op")
  1967.     (?. "cdot" "Binary Op")
  1968.     (?- "cap" "Binary Op")
  1969.     (?+ "cup" "Binary Op")
  1970.     (nil "uplus" "Binary Op")
  1971.     (nil "sqcap" "Binary Op")
  1972.     (?| "vee" "Binary Op")
  1973.     (?& "wedge" "Binary Op")
  1974.     (?\\ "setminus" "Binary Op")
  1975.     (nil "wr" "Binary Op")
  1976.     (nil "diamond" "Binary Op")
  1977.     (nil "bigtriangleup" "Binary Op")
  1978.     (nil "bigtriangledown" "Binary Op")
  1979.     (nil "triangleleft" "Binary Op")
  1980.     (nil "triangleright" "Binary Op")
  1981.     (nil "lhd" "Binary Op")
  1982.     (nil "rhd" "Binary Op")
  1983.     (nil "unlhd" "Binary Op")
  1984.     (nil "unrhd" "Binary Op")
  1985.     (nil "oplus" "Binary Op")
  1986.     (nil "ominus" "Binary Op")
  1987.     (nil "otimes" "Binary Op")
  1988.     (nil "oslash" "Binary Op")
  1989.     (nil "odot" "Binary Op")
  1990.     (nil "bigcirc" "Binary Op")
  1991.     (nil "dagger" "Binary Op")
  1992.     (nil "ddagger" "Binary Op")
  1993.     (nil "amalg" "Binary Op")
  1994.     (?< "leq" "Relational")
  1995.     (?> "geq" "Relational")
  1996.     (nil "qed" "Relational")
  1997.     (nil "equiv" "Relational")
  1998.     (nil "models" "Relational")
  1999.     (nil "prec" "Relational")
  2000.     (nil "succ" "Relational")
  2001.     (nil "sim" "Relational")
  2002.     (nil "perp" "Relational")
  2003.     (nil "preceq" "Relational")
  2004.     (nil "succeq" "Relational")
  2005.     (nil "simeq" "Relational")
  2006.     (nil "mid" "Relational")
  2007.     (nil "ll" "Relational")
  2008.     (nil "gg" "Relational")
  2009.     (nil "asymp" "Relational")
  2010.     (nil "parallel" "Relational")
  2011.     (?{ "subset" "Relational")
  2012.     (?} "supset" "Relational")
  2013.     (nil "approx" "Relational")
  2014.     (nil "bowtie" "Relational")
  2015.     (?\[ "subseteq" "Relational")
  2016.     (?\] "supseteq" "Relational")
  2017.     (nil "cong" "Relational")
  2018.     (nil "Join" "Relational")
  2019.     (nil "sqsubset" "Relational")
  2020.     (nil "sqsupset" "Relational")
  2021.     (nil "neq" "Relational")
  2022.     (nil "smile" "Relational")
  2023.     (nil "sqsubseteq" "Relational")
  2024.     (nil "sqsupseteq" "Relational")
  2025.     (nil "doteq" "Relational")
  2026.     (nil "frown" "Relational")
  2027.     (?i "in" "Relational")
  2028.     (nil "ni" "Relational")
  2029.     (nil "propto" "Relational")
  2030.     (nil "vdash" "Relational")
  2031.     (nil "dashv" "Relational")
  2032.     (?\C-b "leftarrow" "Arrows")
  2033.     (nil "Leftarrow" "Arrows")
  2034.     (?\C-f "rightarrow" "Arrows")
  2035.     (nil "Rightarrow" "Arrows")
  2036.     (nil "leftrightarrow" "Arrows")
  2037.     (nil "Leftrightarrow" "Arrows")
  2038.     (nil "mapsto" "Arrows")
  2039.     (nil "hookleftarrow" "Arrows")
  2040.     (nil "leftharpoonup" "Arrows")
  2041.     (nil "leftharpoondown" "Arrows")
  2042.     (nil "longleftarrow" "Arrows")
  2043.     (nil "Longleftarrow" "Arrows")
  2044.     (nil "longrightarrow" "Arrows")
  2045.     (nil "Longrightarrow" "Arrows")
  2046.     (nil "longleftrightarrow" "Arrows")
  2047.     (nil "Longleftrightarrow" "Arrows")
  2048.     (nil "longmapsto" "Arrows")
  2049.     (nil "hookrightarrow" "Arrows")
  2050.     (nil "rightharpoonup" "Arrows")
  2051.     (nil "rightharpoondown" "Arrows")
  2052.     (?\C-p "uparrow" "Arrows")
  2053.     (nil "Uparrow" "Arrows")
  2054.     (?\C-n "downarrow" "Arrows")
  2055.     (nil "Downarrow" "Arrows")
  2056.     (nil "updownarrow" "Arrows")
  2057.     (nil "Updownarrow" "Arrows")
  2058.     (nil "nearrow" "Arrows")
  2059.     (nil "searrow" "Arrows")
  2060.     (nil "swarrow" "Arrows")
  2061.     (nil "nwarrow" "Arrows")
  2062.     (nil "ldots" "Misc Symbol") 
  2063.     (nil "cdots" "Misc Symbol") 
  2064.     (nil "vdots" "Misc Symbol") 
  2065.     (nil "ddots" "Misc Symbol") 
  2066.     (nil "aleph" "Misc Symbol") 
  2067.     (nil "prime" "Misc Symbol") 
  2068.     (?A "forall" "Misc Symbol") 
  2069.     (?I "infty" "Misc Symbol") 
  2070.     (nil "hbar" "Misc Symbol") 
  2071.     (?0 "emptyset" "Misc Symbol") 
  2072.     (?E "exists" "Misc Symbol") 
  2073.     (nil "nabla" "Misc Symbol") 
  2074.     (nil "surd" "Misc Symbol") 
  2075.     (nil "Box" "Misc Symbol") 
  2076.     (nil "triangle" "Misc Symbol") 
  2077.     (nil "Diamond" "Misc Symbol") 
  2078.     (nil "imath" "Misc Symbol") 
  2079.     (nil "jmath" "Misc Symbol") 
  2080.     (nil "ell" "Misc Symbol") 
  2081.     (nil "neg" "Misc Symbol") 
  2082.     (?/ "not" "Misc Symbol")
  2083.     (nil "top" "Misc Symbol") 
  2084.     (nil "flat" "Misc Symbol") 
  2085.     (nil "natural" "Misc Symbol") 
  2086.     (nil "sharp" "Misc Symbol") 
  2087.     (nil "wp" "Misc Symbol") 
  2088.     (nil "bot" "Misc Symbol") 
  2089.     (nil "clubsuit" "Misc Symbol") 
  2090.     (nil "diamondsuit" "Misc Symbol") 
  2091.     (nil "heartsuit" "Misc Symbol") 
  2092.     (nil "spadesuit" "Misc Symbol") 
  2093.     (nil "mho" "Misc Symbol") 
  2094.     (nil "Re" "Misc Symbol") 
  2095.     (nil "Im" "Misc Symbol") 
  2096.     (nil "angle" "Misc Symbol") 
  2097.     (nil "partial" "Misc Symbol") 
  2098.     (nil "sum" "Var Symbol")
  2099.     (nil "prod" "Var Symbol")
  2100.     (nil "coprod" "Var Symbol")
  2101.     (nil "int" "Var Symbol")
  2102.     (nil "oint" "Var Symbol")
  2103.     (nil "bigcap" "Var Symbol")
  2104.     (nil "bigcup" "Var Symbol")
  2105.     (nil "bigsqcup" "Var Symbol")
  2106.     (nil "bigvee" "Var Symbol")
  2107.     (nil "bigwedge" "Var Symbol")
  2108.     (nil "bigodot" "Var Symbol")
  2109.     (nil "bigotimes" "Var Symbol")
  2110.     (nil "bigoplus" "Var Symbol")
  2111.     (nil "biguplus" "Var Symbol")
  2112.     (nil "arccos" "Log-like")
  2113.     (nil "arcsin" "Log-like")
  2114.     (nil "arctan" "Log-like")
  2115.     (nil "arg" "Log-like")
  2116.     (?\C-c "cos" "Log-like")
  2117.     (nil "cosh" "Log-like")
  2118.     (nil "cot" "Log-like")
  2119.     (nil "coth" "Log-like")
  2120.     (nil "csc" "Log-like")
  2121.     (nil "deg" "Log-like")
  2122.     (?\C-d "det" "Log-like")
  2123.     (nil "dim" "Log-like")
  2124.     (?\C-e "exp" "Log-like")
  2125.     (nil "gcd" "Log-like")
  2126.     (nil "hom" "Log-like")
  2127.     (?\C-_ "inf" "Log-like")
  2128.     (nil "ker" "Log-like")
  2129.     (nil "lg" "Log-like")
  2130.     (?\C-l "lim" "Log-like")
  2131.     (nil "liminf" "Log-like")
  2132.     (nil "limsup" "Log-like")
  2133.     (nil "ln" "Log-like")
  2134.     (nil "log" "Log-like")
  2135.     (nil "max" "Log-like")
  2136.     (nil "min" "Log-like")
  2137.     (nil "Pr" "Log-like")
  2138.     (nil "sec" "Log-like")
  2139.     (?\C-s "sin" "Log-like")
  2140.     (nil "sinh" "Log-like")
  2141.     (?\C-^ "sup" "Log-like")
  2142.     (?\C-t "tan" "Log-like")
  2143.     (nil "tanh" "Log-like")
  2144.     (nil "uparrow" "delimiters")
  2145.     (nil "Uparrow" "delimiters")
  2146.     (nil "downarrow" "delimiters")
  2147.     (nil "Downarrow" "delimiters")
  2148.     (nil "{" "delimiters")
  2149.     (nil "}" "delimiters")
  2150.     (nil "updownarrow" "delimiters")
  2151.     (nil "Updownarrow" "delimiters")
  2152.     (nil "lfloor" "delimiters")
  2153.     (nil "rfloor" "delimiters")
  2154.     (nil "lceil" "delimiters")
  2155.     (nil "rceil" "delimiters")
  2156.     (?\( "langle" "delimiters")
  2157.     (?\) "rangle" "delimiters")
  2158.     (nil "backslash" "delimiters")
  2159.     (nil "|" "delimiters")
  2160.     (nil "rmoustache" "Delimiters")
  2161.     (nil "lmoustache" "Delimiters")
  2162.     (nil "rgroup" "Delimiters")
  2163.     (nil "lgroup" "Delimiters")    
  2164.     (nil "arrowvert" "Delimiters")
  2165.     (nil "Arrowvert" "Delimiters")
  2166.     (nil "bracevert" "Delimiters")
  2167.     (nil "widetilde" "Constructs")
  2168.     (nil "widehat" "Constructs")
  2169.     (nil "overleftarrow" "Constructs")
  2170.     (nil "overrightarrow" "Constructs")
  2171.     (nil "overline" "Constructs")
  2172.     (nil "underline" "Constructs")
  2173.     (nil "overbrace" "Constructs")
  2174.     (nil "underbrace" "Constructs")
  2175.     (nil "sqrt" "Constructs")
  2176.     (nil "frac" "Constructs")
  2177.     (?^ "hat" "Accents")
  2178.     (nil "acute" "Accents")
  2179.     (nil "bar" "Accents")
  2180.     (nil "dot" "Accents")
  2181.     (nil "breve" "Accents")
  2182.     (nil "check" "Accents")
  2183.     (nil "grave" "Accents")
  2184.     (nil "vec" "Accents")
  2185.     (nil "ddot" "Accents")
  2186.     (?~ "tilde" "Accents")
  2187.     (nil "digamma" ("AMS" "Hebrew"))
  2188.     (nil "varkappa" ("AMS" "Hebrew"))
  2189.     (nil "beth" ("AMS" "Hebrew"))
  2190.     (nil "daleth" ("AMS" "Hebrew"))
  2191.     (nil "gimel" ("AMS" "Hebrew"))
  2192.     (nil "dashrightarrow" ("AMS" "Arrows"))
  2193.     (nil "dashleftarrow" ("AMS" "Arrows"))
  2194.     (nil "leftleftarrows" ("AMS" "Arrows"))
  2195.     (nil "leftrightarrows" ("AMS" "Arrows"))
  2196.     (nil "Lleftarrow" ("AMS" "Arrows"))
  2197.     (nil "twoheadleftarrow" ("AMS" "Arrows"))
  2198.     (nil "leftarrowtail" ("AMS" "Arrows"))
  2199.     (nil "looparrowleft" ("AMS" "Arrows"))
  2200.     (nil "leftrightharpoons" ("AMS" "Arrows"))
  2201.     (nil "curvearrowleft" ("AMS" "Arrows"))
  2202.     (nil "circlearrowleft" ("AMS" "Arrows"))
  2203.     (nil "Lsh" ("AMS" "Arrows"))
  2204.     (nil "upuparrows" ("AMS" "Arrows"))
  2205.     (nil "upharpoonleft" ("AMS" "Arrows"))
  2206.     (nil "downharpoonleft" ("AMS" "Arrows"))
  2207.     (nil "multimap" ("AMS" "Arrows"))
  2208.     (nil "leftrightsquigarrow" ("AMS" "Arrows"))
  2209.     (nil "looparrowright" ("AMS" "Arrows"))
  2210.     (nil "rightleftharpoons" ("AMS" "Arrows"))
  2211.     (nil "curvearrowright" ("AMS" "Arrows"))
  2212.     (nil "circlearrowright" ("AMS" "Arrows"))
  2213.     (nil "Rsh" ("AMS" "Arrows"))
  2214.     (nil "downdownarrows" ("AMS" "Arrows"))
  2215.     (nil "upharpoonright" ("AMS" "Arrows"))
  2216.     (nil "downharpoonright" ("AMS" "Arrows"))
  2217.     (nil "rightsquigarrow" ("AMS" "Arrows"))
  2218.     (nil "nleftarrow" ("AMS" "Neg Arrows"))
  2219.     (nil "nrightarrow" ("AMS" "Neg Arrows"))
  2220.     (nil "nLeftarrow" ("AMS" "Neg Arrows"))
  2221.     (nil "nRightarrow" ("AMS" "Neg Arrows"))
  2222.     (nil "nleftrightarrow" ("AMS" "Neg Arrows"))
  2223.     (nil "nLeftrightarrow" ("AMS" "Neg Arrows"))
  2224.     (nil "leqq" ("AMS" "Relational I"))
  2225.     (nil "leqslant" ("AMS" "Relational I"))
  2226.     (nil "eqslantless" ("AMS" "Relational I"))
  2227.     (nil "lesssim" ("AMS" "Relational I"))
  2228.     (nil "lessapprox" ("AMS" "Relational I"))
  2229.     (nil "approxeq" ("AMS" "Relational I"))
  2230.     (nil "lessdot" ("AMS" "Relational I"))
  2231.     (nil "lll" ("AMS" "Relational I"))
  2232.     (nil "lessgtr" ("AMS" "Relational I"))
  2233.     (nil "lesseqgtr" ("AMS" "Relational I"))
  2234.     (nil "lesseqqgtr" ("AMS" "Relational I"))
  2235.     (nil "doteqdot" ("AMS" "Relational I"))
  2236.     (nil "risingdotseq" ("AMS" "Relational I"))
  2237.     (nil "fallingdotseq" ("AMS" "Relational I"))
  2238.     (nil "backsim" ("AMS" "Relational I"))
  2239.     (nil "backsimeq" ("AMS" "Relational I"))
  2240.     (nil "subseteqq" ("AMS" "Relational I"))
  2241.     (nil "Subset" ("AMS" "Relational I"))
  2242.     (nil "sqsubset" ("AMS" "Relational I"))
  2243.     (nil "preccurlyeq" ("AMS" "Relational I"))
  2244.     (nil "curlyeqprec" ("AMS" "Relational I"))
  2245.     (nil "precsim" ("AMS" "Relational I"))
  2246.     (nil "precapprox" ("AMS" "Relational I"))
  2247.     (nil "vartriangleleft" ("AMS" "Relational I"))
  2248.     (nil "trianglelefteq" ("AMS" "Relational I"))
  2249.     (nil "vDash" ("AMS" "Relational I"))
  2250.     (nil "Vvdash" ("AMS" "Relational I"))
  2251.     (nil "smallsmile" ("AMS" "Relational I"))
  2252.     (nil "smallfrown" ("AMS" "Relational I"))
  2253.     (nil "bumpeq" ("AMS" "Relational I"))
  2254.     (nil "Bumpeq" ("AMS" "Relational I"))
  2255.     (nil "geqq" ("AMS" "Relational II"))
  2256.     (nil "geqslant" ("AMS" "Relational II"))
  2257.     (nil "eqslantgtr" ("AMS" "Relational II"))
  2258.     (nil "gtrsim" ("AMS" "Relational II"))
  2259.     (nil "gtrapprox" ("AMS" "Relational II"))
  2260.     (nil "gtrdot" ("AMS" "Relational II"))
  2261.     (nil "ggg" ("AMS" "Relational II"))
  2262.     (nil "gtrless" ("AMS" "Relational II"))
  2263.     (nil "gtreqless" ("AMS" "Relational II"))
  2264.     (nil "gtreqqless" ("AMS" "Relational II"))
  2265.     (nil "eqcirc" ("AMS" "Relational II"))
  2266.     (nil "circeq" ("AMS" "Relational II"))
  2267.     (nil "triangleq" ("AMS" "Relational II"))
  2268.     (nil "thicksim" ("AMS" "Relational II"))
  2269.     (nil "thickapprox" ("AMS" "Relational II"))
  2270.     (nil "supseteqq" ("AMS" "Relational II"))
  2271.     (nil "Supset" ("AMS" "Relational II"))
  2272.     (nil "sqsupset" ("AMS" "Relational II"))
  2273.     (nil "succcurlyeq" ("AMS" "Relational II"))
  2274.     (nil "curlyeqsucc" ("AMS" "Relational II"))
  2275.     (nil "succsim" ("AMS" "Relational II"))
  2276.     (nil "succapprox" ("AMS" "Relational II"))
  2277.     (nil "vartriangleright" ("AMS" "Relational II"))
  2278.     (nil "trianglerighteq" ("AMS" "Relational II"))
  2279.     (nil "Vdash" ("AMS" "Relational II"))
  2280.     (nil "shortmid" ("AMS" "Relational II"))
  2281.     (nil "shortparallel" ("AMS" "Relational II"))
  2282.     (nil "between" ("AMS" "Relational II"))
  2283.     (nil "pitchfork" ("AMS" "Relational II"))
  2284.     (nil "varpropto" ("AMS" "Relational II"))
  2285.     (nil "blacktriangleleft" ("AMS" "Relational II"))
  2286.     (nil "therefore" ("AMS" "Relational II"))
  2287.     (nil "backepsilon" ("AMS" "Relational II"))
  2288.     (nil "blacktriangleright" ("AMS" "Relational II"))
  2289.     (nil "because" ("AMS" "Relational II"))
  2290.     (nil "nless" ("AMS" "Neg Rel I"))
  2291.     (nil "nleq" ("AMS" "Neg Rel I"))
  2292.     (nil "nleqslant" ("AMS" "Neg Rel I"))
  2293.     (nil "nleqq" ("AMS" "Neg Rel I"))
  2294.     (nil "lneq" ("AMS" "Neg Rel I"))
  2295.     (nil "lneqq" ("AMS" "Neg Rel I"))
  2296.     (nil "lvertneqq" ("AMS" "Neg Rel I"))
  2297.     (nil "lnsim" ("AMS" "Neg Rel I"))
  2298.     (nil "lnapprox" ("AMS" "Neg Rel I"))
  2299.     (nil "nprec" ("AMS" "Neg Rel I"))
  2300.     (nil "npreceq" ("AMS" "Neg Rel I"))
  2301.     (nil "precnsim" ("AMS" "Neg Rel I"))
  2302.     (nil "precnapprox" ("AMS" "Neg Rel I"))
  2303.     (nil "nsim" ("AMS" "Neg Rel I"))
  2304.     (nil "nshortmid" ("AMS" "Neg Rel I"))
  2305.     (nil "nmid" ("AMS" "Neg Rel I"))
  2306.     (nil "nvdash" ("AMS" "Neg Rel I"))
  2307.     (nil "nvDash" ("AMS" "Neg Rel I"))
  2308.     (nil "ntriangleleft" ("AMS" "Neg Rel I"))
  2309.     (nil "ntrianglelefteq" ("AMS" "Neg Rel I"))
  2310.     (nil "nsubseteq" ("AMS" "Neg Rel I"))
  2311.     (nil "subsetneq" ("AMS" "Neg Rel I"))
  2312.     (nil "varsubsetneq" ("AMS" "Neg Rel I"))
  2313.     (nil "subsetneqq" ("AMS" "Neg Rel I"))
  2314.     (nil "varsubsetneqq" ("AMS" "Neg Rel I"))
  2315.     (nil "ngtr" ("AMS" "Neg Rel II"))
  2316.     (nil "ngeq" ("AMS" "Neg Rel II"))
  2317.     (nil "ngeqslant" ("AMS" "Neg Rel II"))
  2318.     (nil "ngeqq" ("AMS" "Neg Rel II"))
  2319.     (nil "gneq" ("AMS" "Neg Rel II"))
  2320.     (nil "gneqq" ("AMS" "Neg Rel II"))
  2321.     (nil "gvertneqq" ("AMS" "Neg Rel II"))
  2322.     (nil "gnsim" ("AMS" "Neg Rel II"))
  2323.     (nil "gnapprox" ("AMS" "Neg Rel II"))
  2324.     (nil "nsucc" ("AMS" "Neg Rel II"))
  2325.     (nil "nsucceq" ("AMS" "Neg Rel II"))
  2326.     (nil "succnsim" ("AMS" "Neg Rel II"))
  2327.     (nil "succnapprox" ("AMS" "Neg Rel II"))
  2328.     (nil "ncong" ("AMS" "Neg Rel II"))
  2329.     (nil "nshortparallel" ("AMS" "Neg Rel II"))
  2330.     (nil "nparallel" ("AMS" "Neg Rel II"))
  2331.     (nil "nvDash" ("AMS" "Neg Rel II"))
  2332.     (nil "nVDash" ("AMS" "Neg Rel II"))
  2333.     (nil "ntriangleright" ("AMS" "Neg Rel II"))
  2334.     (nil "ntrianglerighteq" ("AMS" "Neg Rel II"))
  2335.     (nil "nsupseteq" ("AMS" "Neg Rel II"))
  2336.     (nil "nsupseteqq" ("AMS" "Neg Rel II"))
  2337.     (nil "supsetneq" ("AMS" "Neg Rel II"))
  2338.     (nil "varsupsetneq" ("AMS" "Neg Rel II"))
  2339.     (nil "supsetneqq" ("AMS" "Neg Rel II"))
  2340.     (nil "varsupsetneqq" ("AMS" "Neg Rel II"))
  2341.     (nil "dotplus" ("AMS" "Binary Op"))
  2342.     (nil "smallsetminus" ("AMS" "Binary Op"))
  2343.     (nil "Cap" ("AMS" "Binary Op"))
  2344.     (nil "Cup" ("AMS" "Binary Op"))
  2345.     (nil "barwedge" ("AMS" "Binary Op"))
  2346.     (nil "veebar" ("AMS" "Binary Op"))
  2347.     (nil "doublebarwedge" ("AMS" "Binary Op"))
  2348.     (nil "boxminus" ("AMS" "Binary Op"))
  2349.     (nil "boxtimes" ("AMS" "Binary Op"))
  2350.     (nil "boxdot" ("AMS" "Binary Op"))
  2351.     (nil "boxplus" ("AMS" "Binary Op"))
  2352.     (nil "divideontimes" ("AMS" "Binary Op"))
  2353.     (nil "ltimes" ("AMS" "Binary Op"))
  2354.     (nil "rtimes" ("AMS" "Binary Op"))
  2355.     (nil "leftthreetimes" ("AMS" "Binary Op"))
  2356.     (nil "rightthreetimes" ("AMS" "Binary Op"))
  2357.     (nil "curlywedge" ("AMS" "Binary Op"))
  2358.     (nil "curlyvee" ("AMS" "Binary Op"))
  2359.     (nil "circleddash" ("AMS" "Binary Op"))
  2360.     (nil "circledast" ("AMS" "Binary Op"))
  2361.     (nil "circledcirc" ("AMS" "Binary Op"))
  2362.     (nil "centerdot" ("AMS" "Binary Op"))
  2363.     (nil "intercal" ("AMS" "Binary Op"))
  2364.     (nil "hbar" ("AMS" "Misc"))
  2365.     (nil "hslash" ("AMS" "Misc"))
  2366.     (nil "vartriangle" ("AMS" "Misc"))
  2367.     (nil "triangledown" ("AMS" "Misc"))
  2368.     (nil "square" ("AMS" "Misc"))
  2369.     (nil "lozenge" ("AMS" "Misc"))
  2370.     (nil "circledS" ("AMS" "Misc"))
  2371.     (nil "angle" ("AMS" "Misc"))
  2372.     (nil "measuredangle" ("AMS" "Misc"))
  2373.     (nil "nexists" ("AMS" "Misc"))
  2374.     (nil "mho" ("AMS" "Misc"))
  2375.     (nil "Finv" ("AMS" "Misc"))
  2376.     (nil "Game" ("AMS" "Misc"))
  2377.     (nil "Bbbk" ("AMS" "Misc"))
  2378.     (nil "backprime" ("AMS" "Misc"))
  2379.     (nil "varnothing" ("AMS" "Misc"))
  2380.     (nil "blacktriangle" ("AMS" "Misc"))
  2381.     (nil "blacktriangledown" ("AMS" "Misc"))
  2382.     (nil "blacksquare" ("AMS" "Misc"))
  2383.     (nil "blacklozenge" ("AMS" "Misc"))
  2384.     (nil "bigstar" ("AMS" "Misc"))
  2385.     (nil "sphericalangle" ("AMS" "Misc"))
  2386.     (nil "complement" ("AMS" "Misc"))
  2387.     (nil "eth" ("AMS" "Misc"))
  2388.     (nil "diagup" ("AMS" "Misc"))
  2389.     (nil "diagdown" ("AMS" "Misc"))
  2390.     (nil "Hat" ("AMS" "Accents"))
  2391.     (nil "Check" ("AMS" "Accents"))
  2392.     (nil "Tilde" ("AMS" "Accents"))
  2393.     (nil "Acute" ("AMS" "Accents"))
  2394.     (nil "Grave" ("AMS" "Accents"))
  2395.     (nil "Dot" ("AMS" "Accents"))
  2396.     (nil "Ddot" ("AMS" "Accents"))
  2397.     (nil "Breve" ("AMS" "Accents"))
  2398.     (nil "Bar" ("AMS" "Accents"))
  2399.     (nil "Vec" ("AMS" "Accents"))
  2400.     (nil "dddot" ("AMS" "Accents"))
  2401.     (nil "ddddot" ("AMS" "Accents"))
  2402.     (nil "bigl" ("AMS" "Delimiters"))
  2403.     (nil "bigr" ("AMS" "Delimiters"))
  2404.     (nil "Bigl" ("AMS" "Delimiters"))
  2405.     (nil "Bigr" ("AMS" "Delimiters"))
  2406.     (nil "biggl" ("AMS" "Delimiters"))
  2407.     (nil "biggr" ("AMS" "Delimiters"))
  2408.     (nil "Biggl" ("AMS" "Delimiters"))
  2409.     (nil "Biggr" ("AMS" "Delimiters"))
  2410.     (nil "lvert" ("AMS" "Delimiters"))
  2411.     (nil "rvert" ("AMS" "Delimiters"))
  2412.     (nil "lVert" ("AMS" "Delimiters"))
  2413.     (nil "rVert" ("AMS" "Delimiters"))
  2414.     (nil "ulcorner" ("AMS" "Delimiters"))
  2415.     (nil "urcorner" ("AMS" "Delimiters"))
  2416.     (nil "llcorner" ("AMS" "Delimiters"))
  2417.     (nil "lrcorner" ("AMS" "Delimiters"))
  2418.     (nil "nobreakdash" ("AMS" "Special"))
  2419.     (nil "leftroot" ("AMS" "Special"))
  2420.     (nil "uproot" ("AMS" "Special"))
  2421.     (nil "accentedsymbol" ("AMS" "Special"))
  2422.     (nil "xleftarrow" ("AMS" "Special"))
  2423.     (nil "xrightarrow" ("AMS" "Special"))
  2424.     (nil "overset" ("AMS" "Special"))
  2425.     (nil "underset" ("AMS" "Special"))
  2426.     (nil "dfrac" ("AMS" "Special"))
  2427.     (nil "genfrac" ("AMS" "Special"))
  2428.     (nil "tfrac" ("AMS" "Special"))
  2429.     (nil "binom" ("AMS" "Special"))
  2430.     (nil "dbinom" ("AMS" "Special"))
  2431.     (nil "tbinom" ("AMS" "Special"))
  2432.     (nil "smash" ("AMS" "Special"))
  2433.     (nil "eucal" ("AMS" "Special"))
  2434.     (nil "boldsymbol" ("AMS" "Special"))
  2435.     (nil "text" ("AMS" "Special"))
  2436.     (nil "intertext" ("AMS" "Special"))
  2437.     (nil "substack" ("AMS" "Special"))
  2438.     (nil "subarray" ("AMS" "Special"))
  2439.     (nil "sideset" ("AMS" "Special"))))
  2440.  
  2441. (defcustom LaTeX-math-abbrev-prefix "`"
  2442.   "Prefix key for use in `LaTeX-math-mode'."
  2443.   :group 'LaTeX-math
  2444.   :type 'string)
  2445.  
  2446. (defvar LaTeX-math-keymap (make-sparse-keymap)
  2447.   "Keymap used for LaTeX-math-mode commands.")
  2448.  
  2449. (defvar LaTeX-math-menu
  2450.   '("Math"
  2451.     ("Greek") ("greek") ("Binary Op") ("Relational") ("Arrows")
  2452.     ("Misc Symbol") ("Var Symbol") ("Log-like") ("delimiters")
  2453.     ("Delimiters") ("Constructs") ("Accents") ("AMS"))
  2454.   "Menu containing LaTeX math commands.
  2455. The menu entries will be generated dynamically, but you can specify
  2456. the sequence by initializing this variable.")
  2457.  
  2458. (define-key LaTeX-math-keymap
  2459.   (concat LaTeX-math-abbrev-prefix LaTeX-math-abbrev-prefix)
  2460.   'LaTeX-math-insert-prefix)
  2461.  
  2462. (let ((math (reverse (append LaTeX-math-list LaTeX-math-default)))
  2463.       (map (lookup-key LaTeX-math-keymap LaTeX-math-abbrev-prefix)))
  2464.   (while math
  2465.     (let* ((entry (car math))
  2466.        (key (nth 0 entry))
  2467.        value menu name)
  2468.       (setq math (cdr math))
  2469.       (if (listp (cdr entry))
  2470.       (setq value (nth 1 entry)
  2471.         menu (nth 2 entry))
  2472.     (setq value (cdr entry)
  2473.           menu nil))
  2474.       (if (stringp value)
  2475.       (progn
  2476.        (setq name (intern (concat "LaTeX-math-" value)))
  2477.        (fset name (list 'lambda (list 'arg) (list 'interactive "*P")
  2478.                 (list 'LaTeX-math-insert value 'arg))))
  2479.     (setq name value))
  2480.       (if key
  2481.       (progn 
  2482.         (setq key (if (numberp key) (char-to-string key) (vector key)))
  2483.         (define-key map key name)))
  2484.       (if menu
  2485.       (let ((parent LaTeX-math-menu))
  2486.         (if (listp menu)
  2487.         (progn 
  2488.           (while (cdr menu)
  2489.             (let ((sub (assoc (car menu) LaTeX-math-menu)))
  2490.               (if sub
  2491.               (setq parent sub)
  2492.             (setcdr parent (cons (list (car menu)) (cdr parent))))
  2493.               (setq menu (cdr menu))))
  2494.           (setq menu (car menu))))
  2495.         (let ((sub (assoc menu parent)))
  2496.           (if sub 
  2497.           (if (stringp value)
  2498.               (setcdr sub (cons (vector value name t) (cdr sub)))
  2499.             (error "Cannot have multiple special math menu items"))
  2500.         (setcdr parent
  2501.             (cons (if (stringp value)
  2502.                   (list menu (vector value name t))
  2503.                 (vector menu name t))
  2504.                   (cdr parent))))))))))
  2505.  
  2506. (easy-menu-define LaTeX-math-mode-menu
  2507.     LaTeX-math-keymap
  2508.     "Menu used in math minor mode."
  2509.   LaTeX-math-menu)
  2510.  
  2511. (defvar LaTeX-math-mode nil
  2512.   "Is `LaTeX-math-mode' on or off?  Non nil means on.")
  2513.  
  2514.  (make-variable-buffer-local 'LaTeX-math-mode)
  2515.  
  2516. (or (assoc 'LaTeX-math-mode minor-mode-alist)
  2517.     (setq minor-mode-alist (cons '(LaTeX-math-mode " Math") minor-mode-alist)))
  2518.  
  2519. (or (assoc 'LaTeX-math-mode minor-mode-map-alist)
  2520.     (setq minor-mode-map-alist
  2521.       (cons (cons 'LaTeX-math-mode LaTeX-math-keymap)
  2522.         minor-mode-map-alist)))
  2523.  
  2524. (defun LaTeX-math-mode (&optional arg)
  2525.   "A minor mode with easy acces to TeX math macros. 
  2526.  
  2527. Easy insertion of LaTeX math symbols.  If you give a prefix argument,
  2528. the symbols will be surrounded by dollar signs.  The following
  2529. commands are defined:
  2530.  
  2531. \\{LaTeX-math-keymap}"
  2532.   (interactive "P")
  2533.   (setq LaTeX-math-mode
  2534.     (not (or (and (null arg) LaTeX-math-mode)
  2535.          (<= (prefix-numeric-value arg) 0))))
  2536.   (if LaTeX-math-mode
  2537.       (easy-menu-add LaTeX-math-mode-menu LaTeX-math-keymap)
  2538.     (easy-menu-remove LaTeX-math-mode-menu))
  2539.   (set-buffer-modified-p (buffer-modified-p)))
  2540.  
  2541. (fset 'latex-math-mode 'LaTeX-math-mode)
  2542.  
  2543. (defun LaTeX-math-insert-prefix ()
  2544.   "Insert the value of `LaTeX-math-abbrev-prefix'."
  2545.   (interactive "*")
  2546.   (let (LaTeX-math-mode)
  2547.     (call-interactively (key-binding LaTeX-math-abbrev-prefix))))
  2548.  
  2549. (defun LaTeX-math-insert (string dollar)
  2550.   ;; Inserts \STRING{}. If DOLLAR is non-nil, put $'s around it.
  2551.   (if dollar (insert "$"))
  2552.   (TeX-insert-macro string)
  2553.   (if dollar (insert "$")))
  2554.  
  2555. (defun LaTeX-math-cal (char dollar)
  2556.   "Inserts a {\\cal CHAR}.  If DOLLAR is non-nil, put $'s around it."
  2557.   (interactive "*c\nP")
  2558.   (if dollar (insert "$"))
  2559.   (if (member "latex2e" (TeX-style-list))
  2560.       (insert "\\mathcal{" (char-to-string char) "}")
  2561.     (insert "{\\cal " (char-to-string char) "}"))
  2562.   (if dollar (insert "$")))
  2563.  
  2564. (provide 'latex)
  2565.  
  2566. ;;; Keymap
  2567.  
  2568. (defvar LaTeX-mode-map
  2569.   (let ((map (copy-keymap TeX-mode-map)))
  2570.     
  2571.     ;; Standard
  2572.     (define-key map "\n"      'reindent-then-newline-and-indent)
  2573.     
  2574.     ;; From latex.el
  2575.     (define-key map "\t"      'LaTeX-indent-line)
  2576.     (define-key map "\eq"     'LaTeX-fill-paragraph) ;*** Alias
  2577.     ;; This key is now used by Emacs for face settings.
  2578.     ;; (define-key map "\eg"     'LaTeX-fill-region) ;*** Alias
  2579.     (define-key map "\e\C-e"  'LaTeX-find-matching-end)
  2580.     (define-key map "\e\C-a"  'LaTeX-find-matching-begin)
  2581.     
  2582.     (define-key map "\C-c\C-q\C-p" 'LaTeX-fill-paragraph)
  2583.     (define-key map "\C-c\C-q\C-r" 'LaTeX-fill-region)
  2584.     (define-key map "\C-c\C-q\C-s" 'LaTeX-fill-section)
  2585.     (define-key map "\C-c\C-q\C-e" 'LaTeX-fill-environment)
  2586.     
  2587.     (define-key map "\C-c."    'LaTeX-mark-environment) ;*** Dubious
  2588.     (define-key map "\C-c*"    'LaTeX-mark-section) ;*** Dubious
  2589.  
  2590.     (define-key map "\C-c\C-e" 'LaTeX-environment)
  2591.     (define-key map "\C-c\n"   'LaTeX-insert-item)
  2592.     (or (key-binding "\e\r")
  2593.     (define-key map "\e\r"    'LaTeX-insert-item)) ;*** Alias
  2594.     (define-key map "\C-c]" 'LaTeX-close-environment)
  2595.     (define-key map "\C-c\C-s" 'LaTeX-section)
  2596.  
  2597.     ;; Outline commands...
  2598.     ;; We want to use the right prefix, if possible.
  2599.     (let ((outline (cond ((not (boundp 'outline-minor-mode-prefix))
  2600.               (lookup-key map "\C-c"))
  2601.              ((keymapp (lookup-key map outline-minor-mode-prefix))
  2602.               (lookup-key map outline-minor-mode-prefix))
  2603.              (t
  2604.               (define-key map
  2605.                 outline-minor-mode-prefix (make-sparse-keymap))
  2606.               (lookup-key map outline-minor-mode-prefix)))))
  2607.       (define-key outline "\C-z" 'LaTeX-hide-environment)
  2608.       (define-key outline "\C-x" 'LaTeX-show-environment))
  2609.  
  2610.     (define-key map "\C-c~"    'LaTeX-math-mode) ;*** Dubious
  2611.     
  2612.     map)
  2613.   "Keymap used in LaTeX-mode.")
  2614.  
  2615. (defvar LaTeX-environment-menu-name "Insert Environment  (C-c C-e)")
  2616.  
  2617. (defun LaTeX-environment-menu-entry (entry)
  2618.   ;; Create an entry for the environment menu.
  2619.   (vector (car entry) (list 'LaTeX-environment-menu (car entry)) t))
  2620.  
  2621. (defvar LaTeX-environment-modify-menu-name "Change Environment  (C-u C-c C-e)")
  2622.  
  2623. (defun LaTeX-environment-modify-menu-entry (entry)
  2624.   ;; Create an entry for the change environment menu.
  2625.   (vector (car entry) (list 'LaTeX-modify-environment (car entry)) t))
  2626.  
  2627. (defun LaTeX-section-enable-symbol (LEVEL)
  2628.   ;; Symbol used to enable section LEVEL in the menu bar.
  2629.   (intern (concat "LaTeX-section-" (int-to-string (nth 1 entry)) "-enable")))
  2630.  
  2631. (defun LaTeX-section-enable (entry)
  2632.   ;; Enable or disable section ENTRY from LaTeX-section-list.
  2633.   (let ((level (nth 1 entry)))
  2634.     (set (LaTeX-section-enable-symbol level)
  2635.      (>= level LaTeX-largest-level))))
  2636.  
  2637. (defun LaTeX-section-menu (level)
  2638.   ;; Insert section from menu.
  2639.   (let ((LaTeX-section-hook (delq 'LaTeX-section-heading
  2640.                   (copy-sequence LaTeX-section-hook))))
  2641.     (LaTeX-section level)))
  2642.  
  2643. (defun LaTeX-section-menu-entry (entry)
  2644.   ;; Create an entry for the section menu.
  2645.   (let ((enable (LaTeX-section-enable-symbol (nth 1 entry))))
  2646.     (set enable t)
  2647.     (vector (car entry) (list 'LaTeX-section-menu (nth 1 entry)) enable)))
  2648.  
  2649. (defun LaTeX-section-menu-create ()
  2650.   ;; Create a menu over LaTeX sections.
  2651.   (append '("Section  (C-c C-s)")
  2652.       (mapcar 'LaTeX-section-menu-entry LaTeX-section-list)))
  2653.  
  2654. (defvar LaTeX-menu-changed nil)
  2655. ;; Need to update LaTeX menu.
  2656. (make-variable-buffer-local 'LaTeX-menu-changed)
  2657.  
  2658. (defun LaTeX-menu-update ()
  2659.   ;; Update entries on AUC TeX menu.
  2660.   (or (not (eq major-mode 'latex-mode))
  2661.       (null LaTeX-menu-changed)
  2662.       (not (fboundp 'easy-menu-change))
  2663.       (progn
  2664.     (TeX-update-style)
  2665.     (setq LaTeX-menu-changed nil)
  2666.     (message "Updating section menu...")
  2667.     (mapcar 'LaTeX-section-enable LaTeX-section-list)
  2668.     (message "Updating environment menu...")
  2669.     (easy-menu-change '("LaTeX") LaTeX-environment-menu-name
  2670.               (mapcar 'LaTeX-environment-menu-entry
  2671.                   (LaTeX-environment-list)))
  2672.     (message "Updating modify environment menu...")
  2673.     (easy-menu-change '("LaTeX") LaTeX-environment-modify-menu-name
  2674.               (mapcar 'LaTeX-environment-modify-menu-entry
  2675.                   (LaTeX-environment-list)))
  2676.     (message "Updating...done"))))
  2677.  
  2678. (add-hook 'activate-menubar-hook 'LaTeX-menu-update)
  2679.  
  2680. (easy-menu-define LaTeX-mode-menu
  2681.     LaTeX-mode-map
  2682.     "Menu used in LaTeX mode."
  2683.   (list "LaTeX"
  2684.     (list LaTeX-environment-menu-name "Bug.")
  2685.     (list LaTeX-environment-modify-menu-name "Bug.")
  2686.     (LaTeX-section-menu-create)
  2687.     ["Macro..." TeX-insert-macro t]
  2688.     ["Complete" TeX-complete-symbol t]
  2689.     ["Item" LaTeX-insert-item t]
  2690.     (list "Insert Font"
  2691.           ["Emphasize"  (TeX-font nil ?\C-e) :keys "C-c C-f C-e"]
  2692.           ["Bold"       (TeX-font nil ?\C-b) :keys "C-c C-f C-b"]
  2693.           ["Typewriter" (TeX-font nil ?\C-t) :keys "C-c C-f C-t"]
  2694.           ["Small Caps" (TeX-font nil ?\C-c) :keys "C-c C-f C-c"]
  2695.           ["Sans Serif" (TeX-font nil ?\C-f) :keys "C-c C-f C-f"]
  2696.           ["Italic"     (TeX-font nil ?\C-i) :keys "C-c C-f C-i"]
  2697.           ["Slanted"    (TeX-font nil ?\C-s) :keys "C-c C-f C-s"]
  2698.           ["Roman"      (TeX-font nil ?\C-r) :keys "C-c C-f C-r"])
  2699.     (list "Change Font"
  2700.           ["Emphasize"  (TeX-font t ?\C-e) :keys "C-u C-c C-f C-e"]
  2701.           ["Bold"       (TeX-font t ?\C-b) :keys "C-u C-c C-f C-b"]
  2702.           ["Typewriter" (TeX-font t ?\C-t) :keys "C-u C-c C-f C-t"]
  2703.           ["Small Caps" (TeX-font t ?\C-c) :keys "C-u C-c C-f C-c"]
  2704.           ["Sans Serif" (TeX-font t ?\C-f) :keys "C-u C-c C-f C-f"]
  2705.           ["Italic"     (TeX-font t ?\C-i) :keys "C-u C-c C-f C-i"]
  2706.           ["Slanted"    (TeX-font t ?\C-s) :keys "C-u C-c C-f C-s"]
  2707.           ["Roman"      (TeX-font t ?\C-r) :keys "C-u C-c C-f C-r"])
  2708.     ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
  2709.     "-"
  2710.     ["Next Error" TeX-next-error t]
  2711.     (list "TeX Output"
  2712.           ["Kill Job" TeX-kill-job t]
  2713.           ["Debug Bad Boxes" TeX-toggle-debug-boxes
  2714.            :style toggle :selected TeX-debug-bad-boxes ]
  2715.           ["Switch to Original File" TeX-home-buffer t]
  2716.           ["Recenter Output Buffer" TeX-recenter-output-buffer t])
  2717.     (list "Formatting and Marking"
  2718.           ["Format Environment" LaTeX-fill-environment t]
  2719.           ["Format Paragraph" LaTeX-fill-paragraph t]
  2720.           ["Format Region" LaTeX-fill-region t]
  2721.           ["Format Section" LaTeX-fill-section t]
  2722.           ["Mark Environment" LaTeX-mark-environment t]
  2723.           ["Mark Section" LaTeX-mark-section t]
  2724.           ["Beginning of Environment" LaTeX-find-matching-begin t]
  2725.           ["End of Environment" LaTeX-find-matching-end t]
  2726.           ["Hide Environment" LaTeX-hide-environment t]
  2727.           ["Show Environment" LaTeX-show-environment t])
  2728.     (list "Miscellaneous"
  2729.           ["Uncomment Region" TeX-un-comment-region t]
  2730.           ["Comment Region" TeX-comment-region t]
  2731.           ["Switch to Master file" TeX-home-buffer t]
  2732.           ["Save Document" TeX-save-document t]
  2733.           ["Math Mode" LaTeX-math-mode 
  2734.            :style toggle :selected LaTeX-math-mode ]
  2735.           ["Documentation" TeX-goto-info-page t]
  2736.           ["Submit bug report" TeX-submit-bug-report t]
  2737.           [ "Convert 209 to 2e" LaTeX-209-to-2e
  2738.         :active (member "latex2" (TeX-style-list)) ]
  2739.           ["Reset Buffer" TeX-normal-mode t]
  2740.           ["Reset AUC TeX" (TeX-normal-mode t) :keys "C-u C-c C-n"])))
  2741.  
  2742. (defcustom LaTeX-font-list
  2743.   '((?\C-b "\\textbf{" "}")
  2744.     (?\C-c "\\textsc{" "}")
  2745.     (?\C-e "\\emph{" "}")
  2746.     (?\C-f "\\textsf{" "}")
  2747.     (?\C-i "\\textit{" "}")
  2748.     (?\C-m "\\textmd{" "}")
  2749.     (?\C-n "\\textnormal{" "}")
  2750.     (?\C-r "\\textrm{" "}")
  2751.     (?\C-s "\\textsl{" "}")
  2752.     (?\C-t "\\texttt{" "}")
  2753.     (?\C-u "\\textup{" "}")
  2754.     (?\C-d "" "" t))
  2755.   "Font commands used with LaTeX2e.  See `TeX-font-list'."
  2756.   :group 'LaTeX-macro
  2757.   :type '(repeat (group (character :tag "Key")
  2758.             (string :tag "Prefix")
  2759.             (string :tag "Suffix")
  2760.             (option (sexp :format "Replace\n" 
  2761.                       :value t)))))
  2762.  
  2763. ;;; Mode
  2764.  
  2765. (defgroup LaTeX-macro nil
  2766.   "Special support for LaTeX macros in AUC TeX."
  2767.   :prefix "TeX-"
  2768.   :group 'LaTeX
  2769.   :group 'TeX-macro)
  2770.  
  2771. (defcustom TeX-arg-cite-note-p nil
  2772.   "*If non-nil, ask for optional note in citations."
  2773.   :type 'boolean
  2774.   :group 'LaTeX-macro)
  2775.  
  2776. (defcustom TeX-arg-footnote-number-p nil
  2777.   "*If non-nil, ask for optional number in footnotes."
  2778.   :type 'boolean
  2779.   :group 'LaTeX-macro)
  2780.  
  2781. (defcustom TeX-arg-item-label-p nil
  2782.   "*If non-nil, always ask for optional label in items.
  2783. Otherwise, only ask in description environments."
  2784.   :type 'boolean
  2785.   :group 'LaTeX-macro)
  2786.  
  2787. (defcustom TeX-arg-right-insert-p t
  2788.   "*If non-nil, always insert automatically the corresponding \\right.
  2789. This happens when \\left is inserted."
  2790.   :type 'boolean
  2791.   :group 'LaTeX-macro)
  2792.  
  2793. (defvar LaTeX-paragraph-commands
  2794.   (concat "\\[\\|\\]\\|"  ; display math delimitors
  2795.       "begin\\b\\|end\\b\\|part\\b\\|chapter\\b\\|label\\b\\|"
  2796.       "caption\\b\\|section\\b\\|subsection\\b\\|subsubsection\\b\\|"
  2797.       "par\\b\\|noindent\\b\\|paragraph\\b\\|include\\b\\|"
  2798.       "includeonly\\b\\|tableofcontents\\b\\|appendix\\b")
  2799.   "Regexp matching names of LaTeX macros that should have their own line.")
  2800.  
  2801. ;;; Do not ;;;###autoload because of conflict with standard tex-mode.el.
  2802. (defun latex-mode ()
  2803.   "Major mode for editing files of input for LaTeX.
  2804. See info under AUC TeX for full documentation.
  2805.  
  2806. Special commands:
  2807. \\{LaTeX-mode-map}
  2808.  
  2809. Entering LaTeX mode calls the value of `text-mode-hook',
  2810. then the value of `TeX-mode-hook', and then the value
  2811. of `LaTeX-mode-hook'."
  2812.   (interactive)
  2813.   (LaTeX-common-initialization)
  2814.   (setq mode-name "LaTeX")
  2815.   (setq major-mode 'latex-mode)  
  2816.   (setq TeX-command-default "LaTeX")
  2817.   (run-hooks 'text-mode-hook 'TeX-mode-hook 'LaTeX-mode-hook)
  2818.  
  2819.   ;; Defeat filladapt if auto-fill-mode is set in text-mode-hook.
  2820.   (and (boundp 'filladapt-function-table)
  2821.        (boundp 'auto-fill-function)
  2822.        (eq auto-fill-function 'do-auto-fill)
  2823.        (setq auto-fill-function
  2824.          (cdr (assoc 'do-auto-fill filladapt-function-table)))))
  2825.  
  2826. (defvar LaTeX-header-end
  2827.   (concat (regexp-quote TeX-esc) "begin *" TeX-grop "document" TeX-grcl)
  2828.   "Default end of header marker for LaTeX documents.")
  2829.  
  2830. (defvar LaTeX-trailer-start
  2831.   (concat (regexp-quote TeX-esc) "end *" TeX-grop "document" TeX-grcl)
  2832.   "Default start of trailer marker for LaTeX documents.")
  2833.  
  2834. (defun LaTeX2e-font-replace (start end)
  2835.   "Replace LaTeX2e font specification around point with START and END."
  2836.   (save-excursion
  2837.     (catch 'done
  2838.       (while t
  2839.     (if (/= ?\\ (following-char))
  2840.         (skip-chars-backward "a-zA-Z "))
  2841.     (skip-chars-backward "\\\\")
  2842.     (if (looking-at "\\\\\\(emph\\|text[a-z]+\\){")
  2843.         (throw 'done t)
  2844.       (up-list -1))))
  2845.     (forward-sexp 2)
  2846.     (save-excursion
  2847.       (replace-match start t t))
  2848.     (delete-backward-char 1)
  2849.     (insert end)))
  2850.  
  2851. (defun LaTeX-common-initialization ()
  2852.   ;; Common initialization for LaTeX derived modes.
  2853.   (VirTeX-common-initialization)
  2854.   (set-syntax-table LaTeX-mode-syntax-table)
  2855.   (make-local-variable 'indent-line-function)
  2856.   (setq indent-line-function 'LaTeX-indent-line)
  2857.   (use-local-map LaTeX-mode-map)
  2858.   (easy-menu-add TeX-mode-menu LaTeX-mode-map)
  2859.   (easy-menu-add LaTeX-mode-menu LaTeX-mode-map)
  2860.  
  2861.   (or LaTeX-largest-level 
  2862.       (setq LaTeX-largest-level (LaTeX-section-level "section")))
  2863.   
  2864.   (setq TeX-header-end LaTeX-header-end
  2865.     TeX-trailer-start LaTeX-trailer-start)
  2866.  
  2867.   (require 'outline)
  2868.   (make-local-variable 'outline-level)
  2869.   (setq outline-level 'LaTeX-outline-level)
  2870.   (make-local-variable 'outline-regexp)
  2871.   (setq outline-regexp (LaTeX-outline-regexp t))
  2872.   
  2873.   (make-local-variable 'TeX-auto-full-regexp-list)
  2874.   (setq TeX-auto-full-regexp-list 
  2875.     (append LaTeX-auto-regexp-list plain-TeX-auto-regexp-list))
  2876.  
  2877.   (setq paragraph-start
  2878.     (concat
  2879.      "\\("
  2880.      "^.*[^" TeX-esc "\n]%.*$\\|"
  2881.      "^%.*$\\|"
  2882.      "^[ \t]*$\\|"
  2883.      "^[ \t]*"
  2884.      (regexp-quote TeX-esc)
  2885.      "\\("
  2886.      LaTeX-paragraph-commands
  2887.      "\\|item\\b"
  2888.      "\\)"
  2889.      "\\|"
  2890.      "^[ \t]*\\$\\$" ; display math delimitor
  2891.      "\\)" ))
  2892.   (setq paragraph-separate
  2893.     (concat
  2894.      "\\("
  2895.      "^.*[^" TeX-esc "\n]%.*$\\|"
  2896.      "^%.*$\\|"
  2897.      "^[ \t]*$\\|"
  2898.      "^[ \t]*"
  2899.      (regexp-quote TeX-esc)
  2900.      "\\("
  2901.      LaTeX-paragraph-commands
  2902.      "\\)"
  2903.      "\\)"))
  2904.   (setq selective-display t)
  2905.  
  2906.   (make-local-variable 'LaTeX-item-list)
  2907.   (setq LaTeX-item-list '(("description" . LaTeX-item-argument)
  2908.               ("thebibliography" . LaTeX-item-bib)))
  2909.  
  2910.   (setq TeX-complete-list
  2911.     (append '(("\\\\cite\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)"
  2912.            1 LaTeX-bibitem-list "}")
  2913.           ("\\\\cite{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-bibitem-list "}")
  2914.           ("\\\\cite{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)"
  2915.            2 LaTeX-bibitem-list)
  2916.           ("\\\\nocite{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-bibitem-list "}")
  2917.           ("\\\\nocite{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)"
  2918.            2 LaTeX-bibitem-list)
  2919.           ("\\\\ref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")
  2920.           ("\\\\eqref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")
  2921.           ("\\\\pageref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")
  2922.           ("\\\\begin{\\([A-Za-z]*\\)" 1 LaTeX-environment-list "}")
  2923.           ("\\\\end{\\([A-Za-z]*\\)" 1 LaTeX-environment-list "}")
  2924.           ("\\\\renewcommand{\\\\\\([A-Za-z]*\\)"
  2925.            1 LaTeX-symbol-list "}")
  2926.           ("\\\\renewenvironment{\\([A-Za-z]*\\)"
  2927.            1 LaTeX-environment-list "}"))
  2928.         TeX-complete-list))
  2929.  
  2930.   (LaTeX-add-environments
  2931.    '("document" LaTeX-env-document)
  2932.    '("enumerate" LaTeX-env-item)
  2933.    '("itemize" LaTeX-env-item)
  2934.    '("list" LaTeX-env-list)
  2935.    '("trivlist" LaTeX-env-item)
  2936.    '("picture" LaTeX-env-picture)
  2937.    '("tabular" LaTeX-env-array)
  2938.    '("tabular*" LaTeX-env-array)
  2939.    '("array" LaTeX-env-array)
  2940.    '("eqnarray" LaTeX-env-label)
  2941.    '("equation" LaTeX-env-label)
  2942.    '("minipage" LaTeX-env-minipage)
  2943.  
  2944.    ;; The following have no special support, but are included in
  2945.    ;; case the auto files are missing. 
  2946.  
  2947.    "sloppypar" "picture" "tabbing" "verbatim" "verbatim*"
  2948.    "flushright" "flushleft" "displaymath" "math" "quote" "quotation"
  2949.    "abstract" "center" "titlepage" "verse" "eqnarray*"
  2950.  
  2951.    ;; The following are not defined in latex.el, but in a number of
  2952.    ;; other style files.  I'm to lazy to copy them to all the
  2953.    ;; corresponding .el files right now.
  2954.  
  2955.    ;; This means that AUC TeX will complete e.g.
  2956.    ;; ``thebibliography'' in a letter, but I guess we can live with
  2957.    ;; that.  
  2958.  
  2959.    '("description" LaTeX-env-item)
  2960.    '("figure" LaTeX-env-figure)
  2961.    '("figure*" LaTeX-env-figure)
  2962.    '("table" LaTeX-env-figure)
  2963.    '("table*" LaTeX-env-figure)
  2964.    '("thebibliography" LaTeX-env-bib)
  2965.    '("theindex" LaTeX-env-item))
  2966.  
  2967.   (TeX-add-symbols
  2968.    '("addtocounter" TeX-arg-counter "Value")
  2969.    '("alph" TeX-arg-counter)
  2970.    '("arabic" TeX-arg-counter)
  2971.    '("fnsymbol" TeX-arg-define-counter)
  2972.    '("newcounter" TeX-arg-define-counter
  2973.      [ TeX-arg-counter "Within counter" ])
  2974.    '("roman" TeX-arg-counter)
  2975.    '("setcounter" TeX-arg-counter "Value")
  2976.    '("usecounter" TeX-arg-counter)
  2977.    '("value" TeX-arg-counter)
  2978.    '("stepcounter" TeX-arg-counter)
  2979.    '("refstepcounter" TeX-arg-counter)
  2980.    '("label" TeX-arg-define-label)
  2981.    '("pageref" TeX-arg-label)
  2982.    '("ref" TeX-arg-label)
  2983.    '("newcommand" TeX-arg-define-macro [ "Number of arguments" ] t)
  2984.    '("renewcommand" TeX-arg-macro [ "Number of arguments" ] t)
  2985.    '("newenvironment" TeX-arg-define-environment
  2986.      [ "Number of arguments"] t t)
  2987.    '("renewenvironment" TeX-arg-environment
  2988.      [ "Number of arguments"] t t)
  2989.    '("newtheorem" TeX-arg-define-environment
  2990.      [ TeX-arg-environment "Numbered like" ]
  2991.      t [ (TeX-arg-eval progn (if (eq (save-excursion
  2992.                        (backward-char 2)
  2993.                        (preceding-char)) ?\])
  2994.                  ()
  2995.                    (TeX-arg-counter t "Within counter"))
  2996.                "") ])
  2997.    '("newfont" TeX-arg-define-macro t)
  2998.    '("circle" "Diameter")
  2999.    '("circle*" "Diameter")
  3000.    '("dashbox" "Dash Length" TeX-arg-size
  3001.      [ TeX-arg-corner ] t)
  3002.    '("frame" t)
  3003.    '("framebox" (TeX-arg-conditional 
  3004.          (string-equal (LaTeX-current-environment) "picture")
  3005.          (TeX-arg-size [ TeX-arg-corner ] t)
  3006.          ([ "Length" ] [ TeX-arg-lr ] t)))
  3007.    '("line" (TeX-arg-pair "X slope" "Y slope") "Length")
  3008.    '("linethickness" "Dimension")
  3009.    '("makebox" (TeX-arg-conditional 
  3010.         (string-equal (LaTeX-current-environment) "picture")
  3011.         (TeX-arg-size [ TeX-arg-corner ] t)
  3012.         ([ "Length" ] [ TeX-arg-lr ] t)))
  3013.    '("multiput"
  3014.      TeX-arg-coordinate
  3015.      (TeX-arg-pair "X delta" "Y delta")
  3016.      "Number of copies"
  3017.      t)
  3018.    '("oval" TeX-arg-size [ TeX-arg-corner "Portion" ])
  3019.    '("put" TeX-arg-coordinate t)
  3020.    '("savebox" TeX-arg-define-savebox
  3021.      (TeX-arg-conditional
  3022.       (string-equal (LaTeX-current-environment) "picture")
  3023.       (TeX-arg-size [ TeX-arg-corner ] t)
  3024.       ([ "Length" ] [ TeX-arg-lr ] t)))
  3025.    '("shortstack" [ TeX-arg-lr ] t)
  3026.    '("vector" (TeX-arg-pair "X slope" "Y slope") "Length")
  3027.    '("cline" "Span `i-j'")
  3028.    '("multicolumn" "Columns" "Position" t)
  3029.    '("item"
  3030.      (TeX-arg-conditional (or TeX-arg-item-label-p
  3031.                   (string-equal (LaTeX-current-environment)
  3032.                         "description"))
  3033.               ([ "Item label" ])
  3034.               ())
  3035.      (TeX-arg-literal " "))
  3036.    '("bibitem" [ "Bibitem label" ] TeX-arg-define-cite)
  3037.    '("cite"
  3038.      (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) ())
  3039.      TeX-arg-cite)
  3040.    '("nocite" TeX-arg-cite)
  3041.    '("bibliographystyle" TeX-arg-bibstyle)
  3042.    '("bibliography" TeX-arg-bibliography)
  3043.    '("footnote"
  3044.      (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil)
  3045.      t)
  3046.    '("footnotetext" 
  3047.      (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil)
  3048.      t)
  3049.    '("footnotemark" 
  3050.      (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil))
  3051.    '("newlength" TeX-arg-define-macro)
  3052.    '("setlength" TeX-arg-macro "Length")
  3053.    '("addtolength" TeX-arg-macro "Length")
  3054.    '("settowidth" TeX-arg-macro t)
  3055.    '("\\" [ "Space" ])
  3056.    '("\\*" [ "Space" ])
  3057.    '("hyphenation" t)
  3058.    '("linebreak" [ "How much [0 - 4]" ])
  3059.    '("nolinebreak" [ "How much [0 - 4]" ])
  3060.    '("nopagebreak" [ "How much [0 - 4]" ])
  3061.    '("pagebreak" [ "How much [0 - 4]" ])
  3062.    '("stackrel" t nil)
  3063.    '("frac" t nil)
  3064.    '("lefteqn" t)
  3065.    '("overbrace" t)
  3066.    '("overline" t)
  3067.    '("sqrt" [ "Root" ] t)
  3068.    '("underbrace" t)
  3069.    '("underline" t)
  3070.    '("author" t)
  3071.    '("date" t)
  3072.    '("thanks" t)
  3073.    '("title" t)
  3074.    '("pagenumbering" (TeX-arg-eval
  3075.               completing-read "Numbering style: "
  3076.               '(("arabic") ("roman") ("Roman") ("alph") ("Alph"))))
  3077.    '("pagestyle" TeX-arg-pagestyle)
  3078.    '("markboth" t nil)
  3079.    '("markright" t)
  3080.    '("thispagestyle" TeX-arg-pagestyle)
  3081.    '("addvspace" "Length")
  3082.    '("fbox" t)
  3083.    '("hspace*" "Length")
  3084.    '("hspace" "Length")
  3085.    '("mbox" t)
  3086.    '("newsavebox" TeX-arg-define-savebox)
  3087.    '("parbox" [ TeX-arg-tb] "Width" t)
  3088.    '("raisebox" "Raise" [ "Height above" ] [ "Depth below" ] t)
  3089.    '("rule" [ "Raise" ] "Width" "Thickness")
  3090.    '("sbox" TeX-arg-define-savebox t)
  3091.    '("usebox" TeX-arg-savebox)
  3092.    '("vspace*" "Length")
  3093.    '("vspace" "Length")
  3094.    '("documentstyle" TeX-arg-document)
  3095.    '("include" (TeX-arg-input-file "File" t))
  3096.    '("includeonly" t)
  3097.    '("input" TeX-arg-input-file)
  3098.    '("addcontentsline" TeX-arg-file
  3099.      (TeX-arg-eval
  3100.       completing-read "Numbering style: " LaTeX-section-list)
  3101.      t)
  3102.    '("addtocontents" TeX-arg-file t)
  3103.    '("typeout" t)
  3104.    '("typein" [ TeX-arg-define-macro ] t)
  3105.    '("verb" TeX-arg-verb)
  3106.    '("verb*" TeX-arg-verb)
  3107.    '("extracolsep" t)
  3108.    '("index" t)
  3109.    '("glossary" t)
  3110.    '("numberline" "Section number" "Heading")
  3111.    '("caption" t)
  3112.    '("marginpar" [ "Left margin text" ] "Text")
  3113.    '("left" TeX-arg-insert-braces)
  3114.  
  3115.    ;; These have no special support, but are included in case the
  3116.    ;; auto files are missing. 
  3117.  
  3118.    "LaTeX" "SLiTeX" "samepage" "newline" "smallskip" "medskip"
  3119.    "bigskip" "stretch" "nonumber" "centering" "raggedright"
  3120.    "raggedleft" "kill" "pushtabs" "poptabs" "protect" "arraystretch"
  3121.    "hline" "vline" "cline" "thinlines" "thicklines" "and" "makeindex"
  3122.    "makeglossary" "reversemarginpar" "normalmarginpar"
  3123.    "raggedbottom" "flushbottom" "sloppy" "fussy" "newpage"
  3124.    "clearpage" "cleardoublepage" "twocolumn" "onecolumn")
  3125.  
  3126.   (TeX-run-style-hooks "LATEX")
  3127.  
  3128.   (make-local-variable 'TeX-font-list)
  3129.   (make-local-variable 'TeX-font-replace-function)
  3130.   (if (string-equal LaTeX-version "2")
  3131.       ()
  3132.     (setq TeX-font-list LaTeX-font-list)
  3133.     (setq TeX-font-replace-function 'LaTeX2e-font-replace)
  3134.     (TeX-add-symbols
  3135.      '("newcommand" TeX-arg-define-macro
  3136.        [ "Number of arguments" ] [ "Default value for first argument" ] t)
  3137.      '("renewcommand" TeX-arg-macro
  3138.        [ "Number of arguments" ] [ "Default value for first argument" ] t)
  3139.      '("usepackage" [ "Options" ] (TeX-arg-input-file "Package"))
  3140.      '("documentclass" TeX-arg-document)))
  3141.  
  3142.   (TeX-add-style-hook "latex2e"
  3143.    ;; Use new fonts for `\documentclass' documents.
  3144.    (function (lambda ()
  3145.      (setq TeX-font-list LaTeX-font-list)
  3146.      (setq TeX-font-replace-function 'LaTeX2e-font-replace)
  3147.      (if (equal LaTeX-version "2")
  3148.      (setq TeX-command-default "LaTeX2e"))
  3149.      (run-hooks 'LaTeX2e-hook))))
  3150.   
  3151.   (TeX-add-style-hook "latex2"
  3152.    ;; Use old fonts for `\documentstyle' documents.
  3153.    (function (lambda ()
  3154.      (setq TeX-font-list (default-value 'TeX-font-list))
  3155.      (setq TeX-font-replace-function
  3156.        (default-value 'TeX-font-replace-function))
  3157.      (run-hooks 'LaTeX2-hook)))))
  3158.  
  3159. (defvar LaTeX-builtin-opts 
  3160.   '("12pt" "11pt" "10pt" "twocolumn" "twoside" "draft")
  3161.   "Built in options for LaTeX standard styles")
  3162.  
  3163. (defun LaTeX-209-to-2e ()
  3164.   "Make a stab at changing 2.09 doc header to 2e style."
  3165.   (interactive)
  3166.   (TeX-home-buffer)
  3167.   (let (optstr optlist 2eoptlist 2epackages docline docstyle)
  3168.     (goto-char (point-min))
  3169.     (if 
  3170.     (search-forward-regexp
  3171.      "\\documentstyle\\[\\([^]]*\\)\\]{\\([^}]*\\)}"
  3172.      (point-max) t)
  3173.     (setq optstr (buffer-substring-no-properties (match-beginning 1) (match-end 1))
  3174.           docstyle (buffer-substring-no-properties (match-beginning 2)
  3175.           (match-end 2))
  3176.           optlist (TeX-split-string "," optstr))
  3177.       (if (search-forward-regexp
  3178.        "\\documentstyle{\\([^}]*\\)}"
  3179.        (point-max) t)
  3180.       (setq docstyle (buffer-substring-no-properties (match-beginning 1)
  3181.       (match-end 1)))
  3182.     (error "No documentstyle defined")))
  3183.     (beginning-of-line 1)
  3184.     (setq docline (point))
  3185.     (insert "%%%")
  3186.     (while optlist
  3187.       (if (member (car optlist) LaTeX-builtin-opts)
  3188.       (setq 2eoptlist (cons (car optlist) 2eoptlist))
  3189.     (setq 2epackages (cons (car optlist) 2epackages)))
  3190.       (setq optlist (cdr optlist)))
  3191.     ;;(message (format "%S %S" 2eoptlist 2epackages))
  3192.     (goto-char docline)
  3193.     (next-line 1)
  3194.     (insert "\\documentclass")
  3195.     (if 2eoptlist
  3196.     (insert "[" 
  3197.         (mapconcat (function (lambda (x) x)) 
  3198.                (nreverse 2eoptlist) ",") "]"))
  3199.     (insert "{" docstyle "}\n")
  3200.     (if 2epackages
  3201.     (insert "\\usepackage{" 
  3202.         (mapconcat (function (lambda (x) x)) 
  3203.                (nreverse 2epackages) "}\n\\usepackage{") "}\n"))
  3204.     (if (equal docstyle "slides")
  3205.       (progn
  3206.     (goto-char (point-min))
  3207.     (while (re-search-forward "\\\\blackandwhite{" nil t)
  3208.       (replace-match "\\\\input{" nil nil)))))
  3209.   (TeX-normal-mode nil))
  3210.  
  3211. ;;; latex.el ends here
  3212.